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Meltbewerbe 


20000.-DM stehen ab sofort zur 
Verfügung. Wir nehmen sie, 
um den Wettbewerb „Superli- 
sting“ durchzuführen. Monat 
für Monat werden aus diesem 
Topf 2000.-DM für die beste 
Programmeinsendung ausge- 
schüttet. Voraussetzung für die 
Teilnahme ist nicht nur ein un- 
sere Leser interessierendes 
Programm, sondern auch die 
Abgabe eines Autorencoupons 
(Seite 105). Dieser Autorencou- 
pon muß ausgefüllt und ausge- 
schnitten bzw. fotokopiert an 
die Redaktion geschickt wer- 
den. Ganz wichtig ist, daß der 
Einsender erklärt, daß er ein- 
verstanden ist, die Rechte am 
Programm an unseren Verlag 
abzugeben, sobald die Veröf- 
fentlichung in Aussicht gestellt 
wurde. Die Honorierung von 
Programmen, die nicht als 
Erste durch das Ziel gehen, er- 
folgt nach den üblichen Sätzen. 
Das heißt also, daß keiner leer 
ausgeht. Wichtig ist auch noch, 
daß mit der Unterschrift bestä- 
tigt wird, daß das Programm 
frei von Rechten Dritter ist. Von 
einem weiteren Wettbewerb 
soll hier die Rede sein, nämlich 
von dem Wettbewerb „Jugend 
forscht“. Jugend forscht heißt: 
hinter die Fassade gucken. 
Fragen, was dahinter steckt. 
Perspektiven ändern. Neue Di- 
mensionen entdecken. Phanta- 
sie spielen lassen. Alle, die das 
wollen, können an dem natur- 


wissenschaftlich-technischem 

Wettbewerb teilnehmen, wenn 
sie noch nicht 22 Jahre alt sind 
und ein Thema gewählt haben, 
das in eines der folgenden 
Fachgebiete paßt: Biologie, 
Chemie, Geo- und Raumwis- 
senschaften, Mathematik, In- 
formatik/Physik, Technik und 
Arbeitswelt. Umweltarbeiten 
haben extra Chancen beim 
Sonderpreis Umwelt. Anders 
als in der Schule können bei 
diesem Wettbewerb verschie- 
dene Tätigkeiten in die Arbeit 
einfließen: Experimentieren, 
Konstruieren, Fotografieren 
und Zeichnen, Sammeln und 
Vergleichen, sowie Beobach- 
ten, Rechnen und Beschrei- 
ben. Viele junge Leute nehmen 
mehrmals am Wettbewerb teil, 
einfach weil es Spaß macht, 
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wie sie selber sagen. Mitma- 
chen können alle, die am 3]. 
Dezember dieses Jahres noch 
nicht 22 Jahre alt sind und in 
der Bundesrepublik wohnen 
oder zur Schule gehen. Schü- 
ler, Auszubildende, junge Ar- 
beiter und Angestellte, Bun- 
deswehrangehörige und Zivil- 
dienstleistende — alle haben 
eine Chance. Studenten dürfen 
allerdings nur während des 
ersten Semesters teilnehmen, 
da sie sonst die Startchancen 
verzerren. Zu gewinnen gibt es 
Bücher, _Zeitschriftenabonne- 
ments (auch die RUN) und Ex- 
perimentierkästen sowie Geld- 
preise zwischen 100.— DM und 
3000.— DM, Sonderpreise für 
Energietechnik und Elektro- 
technik, Studienaufenthalte im 
Deutschen Museum in Mün- 
chen und in Forschungsinstitu- 
ten, Einladungen zu Fachaus- 
stellungen und Messen. An- 
meldeschluß ist der 30. No- 
vember 1987. Teilnahmebedin- 
gungen und Informationsmate- 
rial gibt es kostenlos bei der 
Stiftung Jungend forscht e.V., 
Notkestraße 31 in 2000 Ham- 
burg 352. 


Für unseren Programmwettbe- 
werb, genauso wie für Jugend 
forscht, gilt: mitmachen und 
Spaß haben, Gleichgesinnte 
finden, diskutieren mit Exper- 
ten und Anerkennung bekom- 
men — das ist Gewinn für alle. 
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Marktübersicht 22 
Test NEC-CP6: Drucker vom Feinsten 26 CES-Chicago Die CES wird immer bunter. Von 
N \GQeoclips bis Hardware reicht 
Test Star ND-10 und NR-10 30 das Angebot. — Spielefreaks 
kommen auf ihre Kosten. Doch in 
Chicago wurde dieses Jahr noch 
Software mehr geboten: Eine exakt arbei- 
Computern in der GEOS-Welt tende Maus für den C64, ein 
Desktop-Publishing mit dem C64 32 Minijoystick namens Icontroller, 
eine Schreibtischlampe mit 
Diskettenhalter. Sensationell 
Bauanleitungen sind die neuen Spielkonsolen: 
Zusatzkarosse für den C64 Auf der Größe einer Kreditkarte 


werden 2 Megabyte unterge- 
bracht und das Spiel selbst 
schafft, dank 3-D-Brille, Raum- 
schiffe direkt ins Wohnzimmer. 
Seite 6 
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Dem Rechner in die Bytes geschaut 


Digitale Userportanzeige 38 
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OP auf dem Bildschirm Qualität mit Die neuen Matrixdrucker müs- 


Spieletest: Surgeon 68 


sen die Non-Impact-Konkurrenz 
Fractal-Maker: Ein „Berg- und Tal-Programm“ 24 Nadeln 


nicht fürchten. Mit 24 Nadeln er- 
FEIERTE SEE reichen sie bestes Schriftbild 


Kreatives Grafikprogramm .70 
und eine Auflösung, die sogar 
den Laserdrucker übertrifft. 
Listings zum Abtippen ng nie vn sind er- 
schwinglich. Spezialist für 24-Na- 
Eorrarter 83 del-Drucker ist NEC. Wir teste- 
ten den Farbdrucker CP7 stell- 
Tips und Tricks vertretend für die NEC-Pin- 


writer-Modellserie und suchten 
nach geeigneten Druckertrei- 
bern für Amiga, AtariSTund PC. 
Seite 26 


Reset- und Restore-Taste überlistet 


Programmschutz selbstgemacht 88 
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Markieren fehlerhafter Sektoren 88 
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Im System des C64 


Systemroutinen von Basic aus nutzen 90 
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Ein besonderer Leckerbissen Berg- 

für Amiga-Besitzer ist der Frak- und Tal- 
tal-Maker zum Abtippen. Mit ihm 

können in wenigen Minuten be- Programm 
eindruckende, futuristische ee) 


Landschaften auf den Bildschirm 
gebracht werden. Die Bilder 
werden im IFF-Format gespei- 
chert und können mit Grafik-Soft- 
ware editiert oder in eigene Pro- 
gramme übernommen werden. 
Die Herstellung von Hinter- 
grundbildern für Video-Clips 
und Spiele wird zum Kinderspiel. 
Seite 70 


„Fractals" ist ein Programm zur Mit der 
Berechnung der bekannten 

Apfelmännchen mit einem be- Floppy ist 
sonderen Clou. Die langen Re- zu rechnen 
chenzeiten zur Erstellung der PerBane 


Mandelbrotgrafiken werden 
verkürzt, indem sich C64 und 
Floppy die Arbeit teilen. Im Dis- 
kettenlaufwerk 1541 befindet 
sich nämlich wie im C64 ein 6502- 
Prozessor, der sich zur Mitarbeit 
anregen läßt. Durch Sprite-Dar- 
stellung wird außerdem eine 
größere Farbvielfalt erreicht. 
Seite 120 
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Die Consumer-Electronics-Show (CES) im Sommer 
dieses Jahres in Chicago wird für die Besucher 
mehr und mehr zum gemischten Erlebnis. Wäh- 
rend allerorten Messen stagnieren und Besucher- 
zahlen abnehmen, rettet sich Chicago unter den 
Schirmbegriff „Unterhaltungselektronik" und ver- 
spricht Freizeitvergnügen, vom Videogerät bis zur 
Satellitenempfangsanlage. 


CES Chicago: 


Pornomiezen 


„Family Fitness“ wird mit 
einer Fußmatte gesteuert. 


und Computerbrillen 


Flugsimulator im Flugzeug: Das zieht Besucher an den Stand, 


Lassen wir TV-Geräte, Auto- 
radios und Diktiergeräte 
beiseite. Ignorieren wir Soft- 
pornos (und deren Darstel- 
lerinnen) im Chicagoer 
McCormick Center (adults 
only) und kümmern uns um 
Sof- und Hardware im 
McCormick East. 

Wer allerdings die CES in 
Erwartung neuer Hard- 
wareerweiterungen be- 
suchte, wurde enttäuscht: 
Außer Joysticks und Mäu- 
sen gab es wenig zu bestau- 
nen. Es scheint so, als ob 
den Hardwaremachern all- 
mählich die Ideen ausge- 
hen. Produkte wie „Data- 
light“ von Suncom — eine 
Schreibtischlampe mit Dis- 


kettenhalter — konnte Mes- 
sebesuchern lediglich ein 
Schmunzeln entlocken. Digi- 
tal-Vision präsentierte einen 
neuen schwarzweiß Digiti- 
zer für den C64; bis aller- 
dings ein Bild in vier Grau- 
stufen errechnet ist, benö- 
tigt das Gerät nicht weniger 
als 50 Sekunden — wohl 
eher ein Rückschritt. Daß 
arbeitserleichternde Pro- 
dukte nicht immer groß und 
teuer zu sein brauchen, be- 
weist Suncoms Icontroller. 
Dabei handelt es sich um ei- 
nen Minijoystick, der am 
Gehäuse des C64/C128 
festgeklebt wird. Der Kleine 
ist für Anwendungspro- 
gramme wie GEOS ge- 


. ER 


Space Harrier" ist eines der rasantesten Spiele. 


dacht, deren Benutzerober- 
fläche Joystickhandling er- 
fordert. Für rasante Action- 
spiele ist der Winzling nicht 
geeignet. Dank durchge- 
schleiftem Port steht dem 
gleichzeitigen Betrieb eines 
echten Joysticks kein nervi- 
ges Umstecken im Wege. 
Der US-Preis beträgt 20 Dol- 
lar. 

Mäuse für den C64 arbeiten 
in der Regel nicht beson- 
ders zuverlässig: Der Zei- 
ger zittert über das Desktop, 
Pixelorientiertes Zeichnen 
ist schwierig. Die M-3 von 
Condriver Technology (US- 
Preis: 54 Dollar) schafft Ab- 
hilfe. Sie erlaubt exaktes Ar- 
beiten, wie man es von den 


68000er Mäusen her kennt. 
Am Atari Stand präsentierte 
man mit Pauken und Trom- 
peten schon wieder den 
IBM-kompatiblen PC. Der 
erfahrene Messebesucher 
kennt das von der Hannover 
Messe und von der Winter- 
CES in Las Vegas. Die er- 
sten Geräte sollen jetzt in 
den Handel kommen — eine 
Ankündigung, die gebüh- 
rend zu würdigen ist. Spei- 
chererweiterungen für die 
verschiedenen SC-Modelle 
wurden vorgestellt, die auf 
bis zu 4 Megabyte aufrüst- 
bar sind. Erfreulicherweise 
lassen sich die neuen RAM- 
Karten im Gegensatz zu al- 
ten Modellen mit wenig Auf- 


Bild 1: 


Bild 1: Der Controller für GEOS etc. wird einfach am C64/ 


128 festgeklebt. Freizeitvergnügen für jedermann: Surfen 
(California Games, Bild 2), Radfahren (Bild 3) und Motor- 
estdrive, Bild 4). Ein neuer Kriminalfall für Rätsel- 
reunde (Maniac mansion, Bild 5). Alles in allem: Mehr 
Qualität für weniger Geld. 


Bild 2: 


COKTESTAHT 


PRACTICE 


Bild 3: 


DR NL FD OPERETTE 
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Bild 4: 


wand einbauen. Lötarbeiten 
sind nicht erforderlich. 
Noch sind die Karten relativ 
teuer, etwa 600 US-Dollar, 
warten lohnt sich. Neuigkei- 
ten in Hülle und Fülle gab es 
im Softwarebereich. Alles 
was Rang und Namen hat 
war vertreten, der Trend 
war eindeutig: mehr Quali- 
tät für weniger Geld. „Cali- 
fornia Games“ von Epyx 
gliedert sich ein in die Reihe 
der beliebten Sportspiele. 
Die Wettkampfschauplätze 
reichen von Hollywood bis 
Santa Cruz. Disziplinen sind 
Surfen, Skateboarding, 
BMX-Geschicklichkeitsren- 
nen, balancieren und so 
weiter. Grafik und Änima- 
tion sind so, wie man es von 
Epyx’s Sportspielen her ge- 
wohnt ist. Mit „Create Ca- 
lender“ kann sich jeder sei- 
nen individuellen Jahreska- 


Bild 5: 


lender basteln. Zahlreiche 
Schriftarten und Grafiken, 
von Geburtstagskuchen und 
Muttertag bis hin zum Zahn- 
arzttermin sowie Hilfsrouti- 
nen für Eintragung von all- 
jährlichen Ferien und Feier- 
tagen machen dem Kalen- 
derschreiber leichtes Spiel. 
Ausdruck ist in verschiede- 
nen Größen vom Postkarten- 
format bis zum Poster mög- 
lich. Eine neue Produktlinie 
startet mit „Streetsportsba- 
seball“ und „Streetsports- 
basketball". Wettkämpfe 
werden nun nicht mehr auf 
dem Sportplatz, sondern di- 
rekt auf der Straße ausge- 
tragen, so wie man es aus 
der Bronx, aus Queens 
und/oder aus Brooklyn 
kennt. Dabei sind die neuen 
Programme keineswegs Re- 
makes mit neuer Hinter- 
grundgrafik; bei der Spie- 
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Neu, grafikfähig und schnell: Okidata 180. 


lersteuerung und Animation 
sind erhebliche Verbesse- 
rungen erkennbar. „Apollo 
18 — Mission to the moon“ ist 
der Titel eines brandneuen 
C64 Spiels von Accolade. 
Nachwuchsastronauten  si- 
mulieren das gesamte Un- 
ternehmen Apollo 18 vom 
Start bis zur Landung auf 
dem Mond und Rückflug zur 
Erde. Grafik, Sound und 
Spielwitz setzen einen neu- 
en Standard für künftige Si- 
mulationsprogramme. Lo- 
benswert ist der friedliche 
Charakter des Strategie- 
spiels, endlich mal etwas 
ohne Mord und Totschlag. 
Wer möchte nicht einmal 
mit einem 700 PS starken 
Wagen über die Piste rau- 
schen? „Testdrive" macht's 
möglich. Ferrari, Lambor- 
ghini und Porsche stehen 


zur Auswahl. Die Teststrek- 
ke hat's in sich. Langsame 
Trucks, waghalsige Fußgän- 
ger und gefährliche Hinder- 
nisse machen dem Piloten 
die Aufgabe schwer. Wer in 
die Prärie rauscht und sein 
simuliertes Leben verliert, 
braucht nur einen Knopf- 
druck zur Wiederbelebung 
und zum Start in die nächste 
Runde. „Accolade's Co- 
mics“ verspricht Aufbruch 
in eine neue Comicdimen- 
sion. Warum Comics lesen, 
wenn man sie per Rechner 
miterleben kann? Interakti- 
ve Manipulationsmöglich- 
keiten, hervorragende Gra- 
fik und Spielwitz machen 
dieses Programm zum Ge- 
heimtip. „Maniac mansion“ 
von Activision ist die neue 
Adventurekomödie mit fan- 
tastischer Grafikanimation. 


M.3 Maus von Condriver Technology (54 Dollar). 
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Ein erster Blick auf die 
Spielfiguren läßt sofort er- 
kennen, daß hier kein ande- 
rer als Lukas Film als geisti- 
ger Vater im Hintergrund 
steht. Die Qualität des Pro- 
gramms läßt sich am besten 
mit „Labyrinth“ verglei- 
chen. In 55 dreidimensiona- 
len Räumen verbergen sich 
450 Objekte, und alle müs- 
sen erforscht werden. Lu- 
kas Film beschreitet mit 
„Maniac mansion" eine 
neue Dimension des Erzäh- 
lens und Erlebens. Anders 
als bei Textadventures geht 
sämtliche Kommunikation 
per Joystick vonstatten. 


An Lukas kommt 


keiner vorbei 
STE EEETENFEE 


Abenteurer, die sich an pfif- 
figen Texten und kniffligen 
Rätseln erfreuen, sind hier- 
von wahrscheinlich nicht zu 
begeistern. Doch wer's sich 
gerne mit dem Joystick im 
Sessel gemütlich macht und 
hervorragende Grafik zu 
schätzen weiß, kommt an 
Lukas nicht vorbei. „Last 
Ninja“ heißt ein neues 
Kampfspiel mit 130 dreidi- 
mensionalen Screens mit 
1000 beweglichen Objek- 
ten. Im Gegensatz zu ande- 
ren „Hau-zu-Spielen“ über- 
zeugt „Last Ninja" durch Ad- 
ventureelemente, die strate- 
gisches Handeln und Den- 
ken erfordern. Die Anima- 
tion der Kämpfer ist ausge- 
zeichnet; besser geht es 
nicht mehr. „Videotitelshop" 
von Datasoft unterstützt 
Hobbyfilmer beim Zusam- 
menstellen ihrer Clips. Pro- 
blemlos lassen sich Vor- 
spänne und Zwischentexte 
erstellen und darstellen: 
Ein- und Ausblenden, Scrol- 
len von Text in alle Richtun- 
gen, ist ebenso möglich wie 
die Verwendung eines be- 
liebigen Bildes (Koala Pain- 
ter etc.) als Hintergrund. 
„Alternate Reality“, „The 
City“, „The Dungeon“ heißt 
eine neue Rollenspielserie 
für den C64. Ähnlich wie 
beim Bestseller „The Bart's 
Tail“ müssen Höhlen und La- 
byrinthe erforscht werden. 
Die Spielsteuerung erfolgt 


1000 Berlin, Conrad Electronic 
Kurfürstenstr. 145, Tel. 030/261 70: 

1000 Berlin 65, Thomas Wirbel GmbH 
Pankstr. 49, Tel. 0 30/4 6240 16/7 


2000 Hamburg 76, Conrad Electronic 
Hamburger Str. 127, Tel. 040/29 17: 


2000 Hamburg 20, H.W. Elektronik 
Eimsbötteler Chaussee 79, 
Tel.040/4396848 


2000 Hamburg-Wandsbeck, 
Völkner Electronic, 
Wandsbecker-Zollstr., 
Tel. 040/652 34 56 


2800 Bremen 1, Williges Elektronik 
Druckwitzstr. 42/44, Tel. 042/50 40: 


2800 Bremen, Völkner Electronic 
Heerstr. 282/285, Ecke Malerstr., 
Tel. 0421/4985752 


2940 Wilhelmshaven 1, Reichelt Elektroni 
Marktstraße 101-103, 
Tel. 04421/26381 

3000 Hannover, Völkner Electronic 
Ihmeplatz 8, Tel. 00511/449542 


3300 Braunschweig, Völkner Electronic 
Sudentenstr. 4, Tel. 0531/58966 

3508 Melsungen, Heini Weber 
Am Markt 8, Tel. 05661/2132 

4000 Düsseldorf, Holzinger Elektronik 
Kölner Str. 16-18, Tel. 0211/3539689 


4050 Mönchengladbach, Brunnenberg 
Löriperstr. 117, Tel. 02161/44421 

4100 Duisburg, Kunitzki Funkshop 
Asterlager 98, Tel. 0203/63333 


4130 Moers 1, Electronic Vertrieb Nürnbe 
Uerdinger Str. 121, Tel. 02841/3222 
4190 Kleve, CTN 
Emmericher Str. 128, 
Tel. 02821/91610 


4250 Bottrop, Eurotronik 
Esser Str. 69, Tel. 02041/685134 


4300 Essen 1, Conrad Electronic 
Viehoferstr. 38-52, Tel. 0201/2380 
4300 Essen, Dela Elektronik 
Schützenbahn 11-13, 
Tel. 0201/2367 17 


4300 Essen 1, Kelm und Homberg 
Vereinstr. 21, Tel. 02001/234594 


4330 Mülheim Ruhr, TED Electronic 
Oberhauser Str. 107, 
Tel. 0208/37 0860 


4350 Recklinghausen, Wenzlik Elektronik 
Halternerstr. 24, Tel. 02361/14103 


4353 Oer Erkenschwick, 
Schmitt Elektronik 
Stimbergstr. 196a, Tel. 02368/2723 
4410 Warendorf, Müller Elektronik 
Freckenhorster Str. 31, 
Tel.02581/1767 


4500 Osnabrück, Heinicke Electronic 
Kommenderie Str. 120, 
Tel. 0541/82799 


4600 Dortmund, Kelm und Homberg 
Leuthardstr. 13, Tel. 0231/7527365 

4619 Bergkamen-Heil, Schmitt Elektronik 
Jahnstr. 142, Tel. 02 34/311104 

4620 Castrop-Rauxel, City Elektronik 
Bahnhofstr. 84-86, 
Tel. 02305/33377 


4630 Bochum 1, Schmitt Elektronik 
Königsallee 12, Tel. 02 34/311104 
4670 Lünen, Kelm und Homberg 
Kurt-Schumacher-Str. 10, 
Tel. 02306/61011 
4700 Hamm 1, ADC Elektronik 
Vorsterhauser Weg 20, 
Tel. 02381/4434 65 
4730 Ahlen, K+K Electronic 
Oststr. 20, Tel. 02382/82984 
4780 Lippstadt, K+K Electronic 
Erwitter Str. 4, Tel. 02941/17940 
4790 Paderborn, Elsa Elektronik 
Borchenerstr. 16, Tel. 052 51/7 64 88° 
4800 Bielefeld, 
Alpha Elektronik Berger GmbH 
Heeperstr. 184, Tel. 0521/324333 
4800 Bielefeld, Völkner Electronic 
Otto-H.-Benner-/Taubenstr., 
Tel. 0521/28959 
4830 Gütersioh, Michael Fuchs 
Friedrich-Ebert-Str. 46, 
Tel.05241/14643 
5000 Köln 12, Dela Elektronik 
Maastricher Str. 23, 
Tel. 0221/517081 
5000 Köln 1, Kelm und Homberg | 
Hohenstraufenring 43-45, 
Tel. 0221/24 9592 j 
5000 Köln-Radertal, Völkner Electronic 
Bonner Str. 180, Tel. 02221/372595 
5204 Lohmar, TS Electronic 
Frouradplatz 18, Tel. 02246/6821 


u. - 


5270 Gummersbach, F+H Elektronik 
Gummersbacher Str. 2, 
Tel. 02261/21420 


5400 Koblenz, 
Marek Computertechnik 
Bahnhofstr. 8, Tel. 0261/33437 


5600 Wuppertal 1, City Elektronik 
Kipdorf 40, Tel. 02 02/450355 


5600 Wuppertal Barmen, 
K+K Electronic 
Höhne 33-Rolingswerth 11, 
Tel. 0202/599429 


5800 Hagen 1, K+K Electronic 
Elberfelderstr. 89, 
Tel. 02331/21408 


5800 Hagen 1, Westfalica Technica 
Industriestr. 1, Tel. 02331/35533 

5810 Witten, Kelm und Homberg 
Steinstr. 17, Tel. 02302/55331 


5880 Lüdenscheid, 
Computercenter Sieling 
Werdohlerstr. 32, 

Tel. 02351/84791 


5900 Siegen 1, M. Runte Elektronik 
Freudenbergerstr. 15, 
Tel.02 71/544 50 


6000 Frankfurt, 
Neckermann Versand AG 
Hanauer Landstr. 360-400, 
Tel. 069/4 0401 


6200 Wiesbaden, Elektronik Richter 
Rheinstr. 91, Tel. 061 21/37 7117 


6300 Gießen, Hartel Elektronik 
Frankfurter Str. 302, 
Tel. 0641/25177 


6630 Saarlouis, Thomas Wirbel GmbH 
Titzstr. 24, Tel. 06831/40277 


6638 Dillingen-Diefflen, 
Thomas Wirbel GmbH 
Richard-Wagner-Str. 10, 
Tel. 06831/74096 

6800 Mannheim, Bühler Elektronik 
M 7/9-10, Tel. 06 21/152888 


6900 Heidelberg 1,R+R Electronic 
Breslauer Str. 29, 
Tel. 06221/781500 
7000 Stuttgart, Arit 
Katharinenstr. 22, 
Tel. 0711/2457 46 


7100 Heilbronn, Krauss Elektronik 
Turmstr. 20, Tel. 0 71 31/681 91 


7500 Karlsruhe, Bühler Elektronik 
Waldstr. 46, Tel. 0721/24456 


7700 Singen, Tröndle 
Hauptstr. 11, Tel. 07731/64433 


8000 München 2, Conrad Electronic 
Schillerstr. 23a, Tel. 089/59 2128 


8000 München, Dela Elektronik 
Bürkleinstr. 10, Tel. 089/221292 


8452 Hirschau, Conrad Electronic 
Klaus-Conrad-Str. 1, 
Tel. 09622/30193 

8500 Nürnberg 70, Conrad Electronic 


Leonhardstr. 3, 
Tel. 0911/2632 80 


8500 Nürnberg, Frank Elektronik 
Matthiasstr. 3, Tel. 0911/32 7732 

8630 Coburg, Helk Electronic 
Ketschendorferstr. 108, 
Tel.09561/26710 


Folge 2: Gewußt wo 


Commodore Chips 
in Deutschland, 
1x ganz in Ihrer Nähe! 


Niederlande 
3565 Utrecht, Telemos 


Von Flensburg bis Garmisch gibt’s jetzt 
Commodore-Chips ab Lager. In einer Auswahl, 
die Ihr so leicht nicht nochmal findet. 
Einfach Bezugsquellen-Nachweis anfordern! 
Händler-Anfragen erwünscht. 


Von &% beauftragter Exclusiv-Distributor für die 
(x Commodore Semiconductor Group: 


Lehmkuhler Weg 28 - 4010 Hilden 
Telefon 02103/69003 und 60071 
Telex 8581 549 

FAX 02103/66078 


Nabraskadreef 27, 
Tel. 003130610424 
8700 Würzburg, MG Electronic tr ad 


Wagnerstr. 14, Tel. 0931/2835 28 Tel. 0031 Trend 


Ketiin® FREE ZELTETETERIT HET TEE TREIBEN EEE 


Neuer Standard: „Apollo 18 — missiontothe moon. 


über Joystick und Tastatur. 
Ausgezeichnete Grafik mit 
gelungener Musikunterhal- 
tung und Spielwitz machen 
„Ordinate Reality" zum 
Spielspaß für lange Zeit. 

Tennis, Squash und Fußball 
— mehr konnte man mit den 
Telespielen der ersten Ge- 
neration nicht anfangen. 
Luxuriösere Modelle er- 
laubten den Anschluß einer 
Lichtpistole, mit deren Hilfe 
man auf einen am Bild- 
schirm zappelnden Punkt 
ballern konnte. Revolutio- 
när war Ätaris Spielkonsole, 
die es erstmals erlaubte, 
verschiedene Spielkasset- 
ten einzustecken: Spacein- 


vador, PacMan eroberten 
die Wohnzimmer. Mit dem 
Siegeszug der ersten Home- 
computer verschwanden 
die Konsolen wieder aus 
den bundesrepublikani- 
schen Wohn- und Schlafzim- 
mern. Jetzt kommen sie mit 
neuer Power zurück: Füh- 
rende Arcademaschinen- 
hersteller wie Sega, Nin- 
tendo und Konami präsen- 
tieren Spielmaschinen der 
Superlative. Die neuen Kon- 
solen schlucken Spielkas- 
setten in Kreditkartengröße 
mit bis zu 2 Megabyte Spei- 
cherkapazität. Grafik und 
Soundqualitätt der Spiele 
entsprechen denen von 


Amiga. Sämtliche Spielhöl- 
lenprogramme von „Don- 
key Kong" bis „SpaceHar- 
rier" laufen jetzt auf dem 
heimischen Fernseher. Um- 
setzungen von beliebten 
Homecomputerspielen wie 
Epixs Sportspiele sind für 
die neuen Konsolen in Vor- 
bereitung. In punkto Ein- 
fallsreichtum sind die Kon- 
solenanbieter bereits eine 
Nasenlänge voraus: mit Hil- 
fe einer 3-D-Spezialbrille 
fliegen beim Segasystem 
die Raumschiffe aus dem 
Bildschirm heraus, direkt 
ins Wohnzimmer, und das in 
Farbe! Der Preis eines Tele- 
spiels der neuen Genera- 


tion liegt bei etwa 300 Mark, 
der eines einzigen ebenbür- 
tigen Computers bei über 
2000 Mark (mit entsprechen- 
der Ausstattung wie Monitor 
und Diskdrive). Ein ausge- 
fallenes und nicht wenig 
reizvolles Produkt präsen- 
tierte Bandai für's Nintendo 
Spielsystem: „Family, Fun, 
Fitness“. Anstelle eines Joy- 
sticks wird hier mit einer 
großen Fußmatte gespielt. 
Je nach Bildschirmgesche- 
hen muß der Spieler (in un- 
serem Fall die Spielerin) 
sich ducken, ausweichen 
oder springen. Da macht 
selbst Sportmuffeln Aerobic 
Spaß! 


Wettkämpfe wie aus der Bronx: „Streetsport.“ 


Btx-Modul von Commodore: 


Commodore grübelt über einem Su- 
per-Btx-Modul. Die gerade erst ange- 
laufene Produktion eines Vorgänger- 
modells wurde gestoppt. Zu teuer. 
Das neue soll unter 400 Mark kosten. 
Neue Pfründe für das schleppende 


Btx-System. 


Michael Penzkofer ist sauer. 
Bereits vor längerer Zeit 
entwickelte der Computer- 
Freak aus Hannover eine 
einmalige Software. Sie 
könnte das Btx-Modul für 
Commodore C64- und C128- 
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Homecomputer aus dem 
Stand lauffähig machen. So 
lauffähig, daß Penzkofers 
Telesoftware darüber auch 
lauffähig wäre. Penzkofer: 
„Commodore kann die Soft- 
ware sofort haben. Für 1500 


N ER N N. 


Mark." 

Aber bislang blockte Com- 
modore ab. Ohne Kommen- 
tar, und dabei wäre die 
Penzkofersche Telesoft- 
ware das Tüpfelchen auf 
dem i für Commodore. Soll- 
te man meinen. Doch dem 
ist offensichtlich nie so ge- 
wesen. Und wird es auch 
nie sein. Denn die Ge- 
schichte nahm einen ande- 
ren Verlauf, als es Penzko- 
fer sich hatte träumen las- 
sen. Penzkofer ist nicht ir- 
gendwer, Penzkofer und 
seine Firma phs gehören zu 
den wenigen Anbietern von 
Telesoftware im Bundesge- 


biet. Er ist fast Exklusiv-Lie- 
ferant brandheißer Telesoft- 
ware-Ideen für den WDR- 
Computerclub in Köln. Dort 
wird über Bildschirmtextsei- 
te #37 107# vorgeführt, in 
welcher Vielfalt über Btx 
bereits heute Telesoftware 
an den Mann gebracht wer- 
den kann: Superschnelle 
Formatierungsprogramme, 
Briefkastenentleerungs- 
dienste, Disassembler zur 
Entschlüsselung von Btx-Sei- 
ten oder Wärmeberech- 
nungsprogramme stellen 
nur einen kleinen Ausschnitt 
des Gesamtangebotes dar. 
An ihm ist neben anderen 


Telesoftware-Anbietern 
Penzkofer maßgeblich be- 
teiligt: er selbst vertreibt Te- 
lesoftware per Btx unter Re- 
gionalseiten #944 194# im 
Regionalbereich 13 (Hanno- 
ver), Allerdings müssen 
beim WDR wie bei Penzko- 
fer einige Zugangsbedin- 
gungen vom Btx-Teilnehmer 
erfüllt sein. Hardwaremäßig 
muß er sich vorher neben 
einem Btx-Anschluß, einem 
Decoder, einem Monitor 
oder einem Fernsehgerät, 
einer Floppy-Station und 
dem Homecomputer, eben 
einem C64 oder C128 oder 
C128D, entweder die phs- 
Btx 64 Box oder eine Schnitt- 
stelle Marke geba-C64 be- 
sorgen. An Software benö- 
tigt er entweder den geba- 
Tele-Manager, Btx-Baxic 
oder das Systemprogramm 
von phs. 

Und gerade diese Sachen 
benötigte auch das Commo- 
dore-Btx-Modul. Jedenfalls 
jenes, das bis vor wenigen 
Wochen noch in Serie ge- 
hen sollte. 

An seiner Konzeption stimm- 
te fast alles — nur war es zu 
teuer. 698 Mark hätte es ko- 
sten sollen. Eine Startaufla- 
ge von 1000 Stück zeigte 
auch, daß C64- und C128- 
Besitzer im Lande reif dafür 
waren. Innerhalb von vier 
Wochen nach Auslieferung 
an den Handel war die klei- 
ne graue Box vergriffen. 
Über den Preis zerbrachen 
sich de „Commos" in 
Frankfurt schon seit länge- 
rem den Kopf. Dort war man 
der Ansicht, daß man mit 
dem Zusatzpotential von 
möglichen 1,4 Millionen 
C64-/C128-Bundesrepubli- 
kanern dem Btx-System 
eine Menge neuer Teilneh- 
mer verschaffen könnte. 
Also bot man der Post, der 
man meinte, damit einen 
Gefallen tun zu können, den 
Super-Deal an, für ganze 
100 000 Mark einzusteigen. 
Btx als Massenmedium. Auf 
einen Schlag. Die Antwort 
der Post: Nein. 

Um nicht in den Ruf zu kom- 
men, auf die Post angewie- 
sen zu sein, ging die Start- 
auflage von 1000 alten Mo- 
dulen in Produktion, wurde 


verkauft und wieder ge- 
stoppt. Die Begründung 
kam prompt. Und logisch. 
Mittlerweile hatte Commo- 
dore sich eines besseren 
besonnen, als die Post um 
Subvention anzugehen. Man 
entwickelte ein neues Mo- 
dul. Noch ist nicht raus, was 
dieses Modul alles im ein- 
zelnen können wird. Soviel 
steht jedoch fest: Es wird ein 
Ersatzmodul für das alte 
sein und damit auch Nach- 
tele desselben ausglei- 
chen. Bislang nannten die 
Commodore-Manager drei 
Faktoren, die die Vermark- 
tung von Modulen behin- 
dern könnten. Neben der 
von Penzkofer angebotenen 
Treibersoftware wäre dies 
ein einheitlicher Standard 
für Telesoftware, der für die 
Übermittlung über das Btx- 
Netz nötig sei. (Penzkofer: 
„Nicht nötig.") Und schließ- 
lich bedürfe es einer genü- 
gend großen Zahl von An- 
bietern der begehrten Tele- 
software. 


Beim Preis ist eini- 
2 zu en 


Der wichtigste Hinderungs- 
grund war aber wohl der 
Preis. Und hier dürfte nach 
Auskunft Commodores eini- 
ges zu erwarten sein. Com- 
modore-Sprecher Gerold 
Hahn zu RUN: „Das Ersatz- 
modul kommt — preiswer- 
ter, wenn alles klappt, sogar 
unter der von uns schon im- 
mer angestrebten 400- 
Mark-Marge.“ Ganz sicher 
sei zudem, daß — vorausge- 
setzt, die letzten vertragli- 
chen Formalitäten mit dem 
Zulieferer laufen reibungs- 
los — mit der Produktion 
des Super-Homecomputer- 
Btx-Moduls noch in diesem 
Jahr zu rechnen sei. 

Die Folgen wären nicht 
schlecht. Für alle Beteilig- 
ten. Die Btx-Gemeinde wür- 
de im genannten Umfang zu- 
nehmen können. Vor allem 
zur Zufriedenheit auch der 
Post. Commodore könnte 
sich auf einen weiteren Rie- 
senreibach freuen. Und das 
bei strammen Erfolgszahlen 
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allein des letzten Dreivier- 
telgeschäftsjahres. Rund 
177 000 Rechner aller Kate- 
gorien wurden verkauft, da- 
von über 152 000 Homecom- 
puter, rund 20 000 Personal- 
computer und 5000 Compu- 
ter von Typ „Ämiga", von 
den 1000 Btx-Modulen „al- 
ter“ Bauart ganz zu schwei- 
gen. Insgesamt erzielte die 
deutsche Vertriebstochter 
des weltweit agierenden 
Computerherstellers ohne 
Export einen Umsatz von 
107,6 Millionen Mark. Wenn 
man bedenkt, daß mit dem 
neuen Btx-Modul ein Zusatz- 
geschäft von über 500 Mil- 
lionen Mark winkt... Aber 
auch bei der C64/C128-Fan- 
Mannschaft könnte das 
neue Modul verzücktes 
Wohlbehagen auslösen. 
Denn Commodore spielt 
nicht nur auf den Brustkä- 
sten der Bayerischen Fuß- 
ballstars vom Club kräftig 
rnit. 


Mit dem Modul soll vor al- 
lem die Kundschaft in Verei- 
nen und Gruppen aller Art, 
vor allem aber des Sports, 
zur Commodore-Taste geru- 
fen werden. Bei Vereinen 
allein sind beispielsweise 
Mailboxen über Homecom- 
puter für die Kommunikati- 
on mit Mitgliedern in Be- 
trieb. Aktuelle Informatio- 
nen werden verbreitet. Hier 
hofft Commodore-Oberst 
Winfried Hoffmann, unter 
Einbeziehung des Btx-Net- 
zes ein nicht unbeträchtli- 
ches Nutzerpotential für sei- 
ne Gerätschaften zu öffnen. 
Ihm könnte zustatten kom- 
men, daß in den Vereinen 
zumal des Fußballs gleich- 
zeitig eine Nutzergruppe 
von jungen Leuten ange- 
sprochen werden kann, die 
ein weitgehendes Interesse 
für Computer mitbringen. 
Leichtes Spiel für Commo- 
dore, neue Leute für Btx. 

(H. Öhlerking) EEE 
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Unterricht mit 
Märklin 


Die Programmierung von Meß- und 
Regelkreisläufen muß nicht abstrakt 
bleiben. Ein Versuchsaufbau mit 
Märklin Digital setzt Computerpro- 
gramme in reale „Action“ um. 


Ebenfalls auf der Benutzer- 
tagung „Schule und Compu- 
ter" des Landes Rheinland- 
Pfalz war ein Versuchsauf- 
bau mit einer Märklin-Digi- 
tal-Anlage zu sehen. Nicht 
eine besondere Hard- oder 
Software-Entwicklung war 
das Bestechende daran, 
sondern die eindrucksvolle 
und konkrete Arbeitsmög- 
lichkeit an einem richtigen 
Modell. Diese Form des An- 
schauungsunterrichts waur- 
de von Realschulrektor Jür- 
gen Peter entwickelt, um 
auch Schüler, denen das 
allzu abstrakte Bit- und Byte- 
Rechnen nicht liegt, für das 
Arbeiten mit Computern zu 
gewinnen. Ein wichtiger Ne- 
beneffekt des Lernens am 
Modell: Der Sinn der Pro- 
grammablaufpläne wird 
auch dem. chaotischsten 
Hacker klar. Um unseren 


Lesern, darunter sicher vie- - 


le Schüler und Lehrer, eini- 
ge Änregungen geben zu 
können, haben wir eine Pro- 
grammieraufgabe mit der 
Märklin-Anlage dokumen- 
tiert. 


Die Programmieraufgabe 

Die vier Waggons eines Mo- 
dellgüterzuges sollen der 
Reihe nach abgehängt und 
in frei wählbarer Reihenfol- 
ge rechnergesteuert wieder 
zusammengestellt werden. 

Dazu gibt man die Reihen- 
folge, in der die Waggons 
vor dem Programmstart an 
der Lokomotive hängen, 
und die Reihenfolge, in der 
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die Waggons nach dem 
Rangiervorgang an der Lo- 
komotive hängen sollen, in 
den Computer ein. Starten 
und Änhalten der Lokombti- 
ve, Fahrtrichtungswechsel, 
Stellen der Weichen und 
Betätigen des Entkupp- 
lungsgleises steuert und re- 
gelt der Computer. 


Gleisbild der Modellanlage 


Vom Hacker zum Stellwerkprogrammierer. 


Programmbeispiele für das 
Eisenbahnmodell „Märklin 
digital“ 

Das Märklin-Interface ist mit 
der seriellen Schnittstelle 
(V24/RS232) des Computers 
verbunden. Prinzipiell kann 
zum Steuern der Modellan- 
lage jede Programmierspra- 
che verwendet werden, die 
die Programmierung dieser 
Schnittstelle zuläßt. Die Pro- 
grammierung ist relativ ein- 
fach und bietet eine große 
Vielfalt an Möglichkeiten. 
Die von Märklin mit dem In- 
terface mitgelieferte Be- 
schreibung der Program- 
miermöglichkeiten ist kurz, 
vollständig und einfach zu 
lesen. 

Das Programm „Rangier- 
bahnhof“ wurde in Basic ge- 
schrieben. Dementspre- 
chend sind auch die Bei- 
spiele in Basic geschrieben. 
Am Anfang eines Pro- 


gramms muß die serielle 
Schnittstelle des Computers 
initialisiert werden. Die An- 
weisung dazu lautet: 


für PC: 
OPEN „COM1:2400,N, 
8,2,CS1000,DS" AS#1 
für C64: 
OPEN 1,2,0,CHR$(10) 
+ CHR$(0) 


Es können 80 verschiedene 
Lokomotiven angesteuert 
werden, von denen jeder 
einzelnen eine frei einstell- 
bare Nummer zugeordnet 
wird. Jede Lokomotive kann 
mit 15 verschiedenen Ge- 
schwindigkeiten gefahren 
werden (Fahrstufen 0 bis 
14). Die Fahrstufe 0 bedeu- 
tet dabei, daß die Lokomboti- 
ve steht. Fahrstufe 15 be- 
wirkt den Fahrtrichtungs- 
wechsel. 

Die Anweisungen für das 
Starten der Lokomotive mit 
der Nummer 49 und der 
Fahrstufe 5 und anschlie- 
ßBendes Anhalten lauten: 


PRINT # 1,CHR$(5)+ CHR$(49); : 
REM # * * Lok starten * # * 

FOR T=0 TO 2000 : NEXT: 
REM # x * Zeitschleife * * + 

PRINT # 1,CHR$(0)+ CHR$(49);; 
REM * * # Lok anhalten 111 


Zur Steuerung des Fahrwe- 
ges können bis zu 255 ver- 
schiedene Weichen oder 
andere Magnetantriebe 
durch das Programm ge- 
schaltet werden. Soll zum 
Beispiel die Weiche mit der 
Nummer 15 auf Abbiegen 
gestellt und die Weiche mit 
der Nummer 3 auf gerade 
gestellt werden, so lauten 
die entsprechenden Anwei- 
sungen: 
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Das Abfragen der Rück- 
meldekontakte erfordert 
Grundkenntnisse über den 
Aufbau des binären Zahlen- 
systems und der logischen 


Verknüpfungen. Jedes ein- 


zelne Rückmeldemodul be- 
sitzt Anschlüsse für 16 ver- 
schiedene Rückmeldekon- 
takte und liefert bei der Ab- 
frage durch den Computer 
zwei Datenbytes. Jeder ein- 
zelne Rückmeldekontakt 
setzt im Rückmeldemodul 
ein bestimmtes Bit auf 1. Bei 
der Abfrage des Rückmel- 
demoduls durch den Com- 
puter werden alle Bits auf 0 
zurückgesetzt. 

Beispiel zur Abfrage des 
Rückmeldekontaktes Nr. 10: 
Das Rückmeldemodul lie- 
fert 2 Bytes an den Compu- 
ter zurück: 


Der Rückmeldekontakt Nr. 
10 setzt das Bit mit der Wer- 
tigkeit 2 im ersten Daten- 
byte, 


Neben den hier beschriebe- 
nen Möglichkeiten bietet 
das Märklin digital System 
eine Reihe weiterer Funktio- 
nen, zum Beispiel zur 
Steuerung von Signalen und 


anderen Magnetartikeln. Je- 
des Programm sollte mit der 
Anweisung 
CLOSE#1 
werden. 


abgeschlossen 


Sinnvoller Einsatz im Un- 
terricht 

Der Einsatz der Modellei- 
senbahn Märklin digital im 
Unterricht der Sekundarstu- 
fe I eröffnet eine gute Mög- 
lichkeit, Schülerinnen und 
Schüler in die Technik des 
Steuerns und Regelns einzu- 
führen. Die Umsetzung ein- 
zelner Programmschritte in 
mechanische Bewegung auf 
der Modellanlage ist für 
Schüler neu (es passiert 
nicht nur etwas auf dem 
Bildschirm) und wirkt sehr 
motivierend.. Der Pro- 
grammablauf vollzieht sich 
nicht unsichtbar im Compu- 
ter, sondern begreifbar auf 
der Modellanlage. Pro- 
grammierfehler führen fast 
immer zum „Katastrophalen 
Eisenbahnunglück." Sie 
werden deshalb sehr 
schnell erkannt und besei- 
tigt. 


Gerade 'die Problemstel- 
lung Rangierbahnhof bietet 
vielfältige Programmier- 
möglichkeiten. Eingabe- 


techniken, Bildschirmauf- 
bau, Zeitschleifen, Pro- 
grammverzweigungen, Un- 
terprogrammtechniken und 
Sortieralgorithmen können 
behandelt werden. „Bei der 


Sinnvoller Einsatz im Unterricht. 
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Beobachtung von Schülern 
am computergesteuerten Ei- 
senbahnmodell fällt auf, daß 
Schüler sehr kooperativ im 
Team zusammenarbeiten. 
Sie arbeiten dabei sehr 
selbständig und der Lehrer 
kann sich weitgehend aus 
dem Unterrichtsgeschehen 


zurückziehen“, lautet die pä- 
dagogische Bilanz des Real- 
schulrektors Jürgen Peter. 


Weitere Informationen: Jürgen 
Peter, Reihwiesenweg 14, 3201 
Algermissen, oder: Märklin, 
Stuttgarter Str. 55-57, 7320 
Göppingen 


Lehrer 


machen sich 


schlau 


Auf der siebten Benutzertagung des 
Landes Rheinland-Pfalz informierten 
sich Lehrer über den aktuellen Stand 
der Computerszene. 


Im Informatikunterricht gibt 
es immer einige Schüler, 
die mit Glanzleistungen den 
Lehrern das Fürchten leh- 
ren. Solche Leistungen wer- 
den von den Lehrern natür- 
lich nicht ungern gesehen. 
Es bleibt die Aufgabe des 
Lehres, solch umfangrei- 
ches Detailwissen für alle 
Schüler nutzbar zu machen 
und die gesellschaftlichen 
und wissenschaftlichen Rah- 
menbedingungen hervorzu- 
heben. Diese Arbeit des 
Lehrers zu unterstützen, ist 
Ziel der jährlichen Benutzer- 
tagung, zu der der rhein- 
land-pfälzische Kultusmini- 
ster die Sammlunggsleiter 
und Informatiklehrer der 
Schulen einlädt. Das Leitthe- 
ma der diesjährigen Veran- 
staltung lautete „Erfahrung 
mit Schulrechnern“. Lehrer- 
und Schülergruppen stell- 
ten in den Räumen des 
Mainzer Theresianum ihre 
Projekte zur Diskussion. 
Lehrplanverwaltung und 
Raumverteilung interessier- 
te vor allem die Direktoren. 
Verschiedene Schülerpro- 
jekte, darunter Landessie- 
ger-Arbeiten von „Jugend 
forscht", zogen die beson- 
dere Aufmerksamkeit der 
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Informatik- und Mathematik- 
lehrer auf sich. 

Große Bedeutung wurde 
der Kommunikation zwi- 
schen den Firmen und den 
Lehren beigemessen. So 
formulierte Helmut Schmidt 
von Commodore die Erwar- 
tung, auf solch einer Veran- 


A a Te TERN 


Der Anteil der Bundesbürger, die eine 
Ausbildung am Microcomputer — „den 
Computer-Führerschein“ — schon in 
der Schul- und Berufsausbildung für 
nötig halten, ist gestiegen. 


Prof. Dr. Konrad Zuse (l.), der Pionier des Computerzeital- 
ters, und der Organisator der Benutzertagung, Ministerial- 


rat Winfried Hosseus. 


staltung einmal direkt mit 
dem Kunden Erfahrungen 
austauschen zu können, da- 
mit Geschäftspolitik sich 
nicht allein nach Spekulatio- 
nen oder toten Statistiken 
orientieren muß. Wie wich- 
tig diese Korrespondenz 
zwischen Herstellern und 
Benutzern ist, zeigte sich 
sehr deutlich bei den neuen 
Plasmabildschirmen. Diese 
Flatscreens werden auf nor- 
male Overhead-Projektoren 
gelegt. Der Screen wird nun 
an die Wand projiziert und 
erlaubt so Computerdemon- 
strationen vor größerem Pu- 


MICROCOMPUTER-TRENDS 


Eine Untersuchung über die Einstellung der Bevölkerung zum Mikrocomputer. 
Durchgeführt vom Emnid-Institut im Auftrag der Messe Frankfurt GmbH. 


Computer - in Schul- und Berufsausbildung 


Ein Viertel der Befragten ist der An- 
sicht, daß das Arbeiten mit Microcom- 
putern in den Schulen noch nicht aus- 
reichend angeboten wird. 


blikum — ideal für die Schul- 
arbeit. Dies wurde offen- 
sichtlich von den Herstel- 
lern nicht so erkannt. Der 
Bedarf des Marktes an sol- 
chen Bildschirmen liegt weit 
über der Produktion. Kodak 
hatte es sogar gänzlich ver- 
säumt, sein Modell vorzu- 
stellen — trotz Zusage. Der 
Grund: extreme Liefer- 
schwierigkeiten. 

Ein weiterer Schwerpunkt 
der Veranstaltung lag in der 
inhaltlichen Standortbestim- 
mung. Winfried Hosseus 
vom rheinland-pfälzischen 
Kultusministerium hatte mit 


Quelle: Messe Frankfurt 


seiner Planung der Vor- 
tragsreihe einen Bogen von 
der erst jungen Computer- 
geschichte bis in die Zu- 
kunft schlagen wollen. Prof. 
Dr. Konrad Kruse, der als 
Entwickler und Vordenker 
der ersten programmierba- 
ren Rechenmaschinen gilt, 
referierte über die Anfangs- 
zeit der Computerära. Seine 
ersten Skizzen und Entwürfe 
stammen aus dem Jahre 
1937; die erste Rechenma- 
schine der Welt, noch mit 
Magnetspulenspeichern, 

konstruierte er 1938. Der 
Computer wird also 50 Jahre 
alt, oder besser gesagt, 
jung. Vor 30 Jahren erst 


stand in Mainz mit dem 
Zuse-Rechner Z1l zum er- 
sten Mal ein Computer für 
die Lehrerfortbildung zur 
Verfügung. Wem sind diese 
Tatsachen noch bewußt? 

Der Blick zurück ist genauso 
wichtig wie die Diskussion 
der Zukunftsperspektiven. 
Frau Prof. Dr. Christiane 
Floyd referierte über den 
aktuellen Stand der For- 
schung zur künstlichen In- 
telligenz. Kritisch hinterfrag- 
te sie das Machbare und 
das Wünschenswerte und 
warnte vor unabsehbaren 
Folgen. Durch nichts sei der 
Mensch zu ersetzen. Exper- 
tensystemen, die zum Bei- 


spiel Aufgaben von Lehrern 
oder Ärzten übernähmen, 
fehle die Möglichkeit, auf 
emotionale und individuelle 
Bedürfnisse einzugehen. Sie 
seien eben nur eine Micro- 
welt und daher nur ein Aus- 
schnitt aus der Gesamtreali- 
tät. Außerdem sei künstli- 
che Intelligenz nichts umfas- 
send Neues, sondern nur 
eine graduelle Steigerung 
der Informationsverknüp- 
fung. Als Beispiel für künstli- 
che Intelligenz führte sie die 
mittlerweile hochentwickel- 
ten Schachprogramme an. 
Frau Prof. Dr. Floyd wider- 
sprach auch der Ansicht, 
daß die künstliche Intelli- 


genz den Computer für Je- 
dermann transparent ma- 
che. Im Gegenteil seien 
noch viel größere Qualifika- 
tionsunterschiede bei den 
Anwendern zu erwarten. Sie 
appellierte an die Lehrer, 
diese Diskussion in den 
Schulen aufzugreifen. 

Mit dieser Tagung ist es 
dem Veranstalter gelungen, 
technische und ethische 
Aspekte des Computerzeit- 
alters auf einem gemeinsa- 
men Forum zur Sprache zu 
bringen. Die angeschnitte- 
nen Themen werden ganz 
sicher auch die Diskussio- 
nen der nächsten Jahre be- 
herrschen. 


High-Tech- 
Trichter in 
Hannover 


Ausbildung am Computer dient zuneh- 


mend der beruflichen Höherqualıfizie- 


rung. In Hannover beschreitet der „Ver- 


ein für Fortbildung“ einen neuen Weg 
zur schnellen Vermittlung von EDV- 


Fachkenntnissen .. 


„Computer-Lernstudio" 

heißt der Begriff, den man 
im Schul- und Ausbildungs- 
wesen schon bald alltäglich 
gebrauchen wird. Her- 
kömmlichen EDV-Unter- 
richt gibt es bereits an allen 
Hochschulen. Meist sieht 
das so aus: Mehrere kleine 
Schülergruppen umlagern 
je einen Rechner und verfol- 
gen — mehr oder weniger 
interessiert — die Worte des 
„Allwissenden". Er bedient 
sich meist eines Rechners, 
der über HF-Modulator mit 
einem Fernseher verbun- 
den ist — in der letzten 
Bankreihe gehört das Fern- 
glas ebenso zur Ausrüstung 
wie Bleistift und Heft. Fra- 
gen gibt's en masse: dann 
darf der Lehrer von Tisch zu 


Tisch joggen und weiterhel- 
fen oder an seinem Hack- 
board hämmern. 

In Hannover sieht das an- 
ders aus: Im Lehrzimmer 
sind 12 „Girls — ausgerü- 
stet mit 1,5 MByte RAM und 
zweitem Diskdrive — ver- 
netzt. Der Kursleiter bedient 
den Master-Amiga, der mit 
einem Schaltpult verbunden 
ist. Über dieses können 
sämtliche Bildschirminhalte 
der Einzelrechner (Slave- 
Rechner) auf den Master- 
Rechner geschaltet werden. 
Der Kursleiter kann so die 
Arbeit eines jeden Teilneh- 
mers kontrollieren und bei 
Problemen direkt über sein 
Keyboard weiterhelfen. Ein 
Großbild-Videoprojektor 
produziert auf Wunsch die 


DE Ei 


Lehrerpult der Zukunft: Terminal statt Tafel. Über Schalt- 


ult wird der Video-Großprojektor gesteuert und die Bild- 


schirmarbeit der Schüler kontrolliert. 


Daten eines beliebigen Sla- 
ves an die Wand: dann kön- 
nen alle Schüler die Pro- 
blemlösung mitverfolgen. 
Gleiches gilt für den Sound 
— über Mikro kann sich der 
Lehrer über einen Slave- 
Lautsprecher zu Wort mel- 
den. Kursleiter Wilfried 
Mühlenhoff: „Oft ist ein 
Schüler so sehr in seine Ar- 
beit vertieft, daß nur noch 
eines hilft: Abschalten des 
Monitors.“ Auf Wunsch 
kann ein beliebiger Bild- 
schirminhalt über Netz zu ei- 
nem 24-Nadel-Drucker ge- 
sendet werden. Eine am 
Lehrerpult montierte Video- 
kamera macht Übertragung 
von Schriftstücken auf die 
Monitore der Schüler zum 
Kinderspiel — Overhead- 


Projektoren 
Computer-Lehrstudio 
Vergangenheit an. 

In puncto Effektivität und 
technischen Aufwand (1000 
Meter Kabel, 15 Mhz Über- 
tragungsrate etc.) ist das 
Hannover-Projekt bislang 
einzigartig in Deutschland. 
Genutzt wird das Lehrstudio 
in erster Linie zur Fortbil- 
dung von arbeitslosen Gra- 
fikern, die Teilnahmekosten 
trägt das Arbeitsamt. Ge- 
puscht mit Computerwissen, 
erhöht der Absolvent seine 
Chancen auf dem Arbeits- 
markt um ein Vielfaches. 
Kursabsolvent Peter Ander- 
heim: „Viel Spaß gehabt 
und viel gelemt.“ — Was 
will man mehr... 


(Michael Nickles) El 
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gehören im 
der 


KNetilin® 


Wörterbuch 


Es sind nicht nur Einsteiger, 
es sind auch versierteste 
Computerfans, die in der 
Welt der Fach- und Fremd- 
wörter ins Stolpern geraten. 
Und wer einmal meint, ein 
Wort verstanden zu haben, 
stellt sehr oft fest, daß Fach- 
begriffe gar nicht immer so 
klar definiert sind und so 
einheitlich gebraucht wer- 
den, wie es den Anschein 
hat. „Das kleine PC-Lexi- 
kon“ schafft hier Abhilfe. 
600 Fachbegriffe rund um 
den Computer werden kurz 
und verständlich erklärt. 
Nicht vergessen wurden ak- 
tuelle Fachbegriffe aus der 
Telekommunikation. Gestal- 
tet wurde „Das kleine PC- 
Lexikon" im handlichen Ta- 
schenformat, damit es be- 
quem in der Jacken- oder 
Handtasche mitgenommen 
werden kann. Für 13,50 
Mark kann der Ratgeber so 
im Fachhandel wie auch di- 
rekt beim Verlag bezogen 


werden. 

„Das kleine PC-Lexikon" 
Peter Fischer 1987 

123 Seiten 

Mikro- + Kleincomputer 
Postfach 14 01 

Ch-6000 Luzern 15 


Professor 
vertritt 


Computerkids 


Prof. Dr. Heinz Haber hat 
sich mit dem Konflikt zwi- 
schen begeisterten Compu- 
terkids und der im Gegen- 
satz dazu verunsicherten Er- 
wachsenen beschäftigt. Be- 
sonders häufig tritt ein bei- 
derseitiges Nicht-Verstehen 
offen zutage, wenn die ge- 
genwartsbestimmende Com- 
putertechnologie zum Ge- 
genstand von Gesprächen 
innerhalb der Familie wird. 
Jetzt wendet sich Professor 
Haber mit einem offenen 
Brief an jene Eltern, die der 
Leidenschaft ihrer Sprößlin- 
ge mit wenig Verständnis 
begegnen. Dabei unterstützt 
der bekannte Fernseh- 
Mann die Idee des Spezial- 
Reiseveranstalters Compu- 


Camp, Computer- und 
Sport-Ferien für Kinder und 
Jugendliche. Dieses Enga- 
gement geht inzwischen so- 
weit, daß er sich bereit er- 
klärt hat, im Computer- 
Camp Westensee im Juli ei- 
nen wissenschaftlichen Vor- 
trag zu halten und Fragen 
der jungen Compu-Camper 
in einer lockeren Diskus- 
sionsrunde zu beantworten. 
Der genaue Termin ist ab 
Anfang Juni unter der Tele- 
fonnummer 040/86 23 44 zu 


„erfragen. 


Optimales 
Diskettenlager 


Formschöne Diskettenbo- 
xen bietet die Firma Posso 
an. Dabei ist das „Media 
Box“-System in erster Linie 
unter praktischen Gesichts- 
punkten entwickelt worden. 
Die Boxen lassen sich zu 
Komponenten zusammen- 
schließen und sorgen daher 
auch bei größeren Disket- 
tenmengen für Ordnung. 
Front- und Registeretiketten 
schaffen Überblick über 


den Inhalt, der über einen 


Schlüsselnachrüstsatz vor 
unerwünschtem Zugriff ge- 
schützt werden kann. Die 
Media-Boxen gibt es für Dis- 
ketten von 3 bis 5% Zoll, 
Kompakt- und Videokasset- 
ten, CDs usw. 

Da die Systeme sich unter- 
einander verbinden lassen, 
ist es von besonderer Be- 
deutung, daß Posso die 
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Nachkaufmöglichkeit der 


Komponenten garantiert. 
Bezug: Data Berger, Im Lichten- 
felde 76, 4790 Paderborn, 

Tel.: 052 51/6 48 52 

Lindy, Böcksttr. 21, 

6800 Mannheim |, 

Tel.: 06 21/2 6851 


Erfolgreich mit 17 


Große Sprünge macht 
Deutschlands jüngster Un- 
ternehmer. Als 17jähriger 
hat der Hamburger Olaf 
Bauer mit seinen Computer- 
spielen bereits 50 000 Mark 
umgesetzt. Als er seine 
GmbH gründete, war er ge: 
rade 15 Jahre alt. Obwoh 
der erfolgreiche Computer- 
fan noch zur Schule geht, fin- 
det er genug Zeit und Ener- 
gie, um sich beim Sport aus- 


zutoben. 


Amiga- 
Programm 


Rund ein Jahr nach Markt- 
einführung gibt es bereits 
mehr als 400 professionelle 
Amiga-Programme für alle 
denkbaren Anwendungen: 
Grafik, CAD, Musik, Büro, 
Schulanwendungen, Spiele, 
integrierte Geschäftspro- 
gramme, Datenbanken und 
Textverarbeitung. Auf der 
„zweiten Amiga-Developes- 
Conference“ in Monterey 
wurde weitere Software vor- 
gestellt: Management-Pro- 
gramme, Deluxe Paint II, 
DeLux-Music-Construction- 
Set von Electronic-Arts, Ko- 
pierprogramme und Pro- 
grammierhilfen. Folgende 
Programmiersprachen, zum 
Teil in mehreren Versionen, 


sind für den Amiga vorhan- 
den: Basic, C, List, Fortran, 
Fourth, Pascal, Modula. In- 
zwischen ist der Amiga welt- 
weit 150000mal verkauft 
worden. In Europa stehen 
56000 Geräte. Bis Ende 
1987 will Commodore insge- 
samt 400 000 Amiga-Rech- 
ner verkauft haben. 


Vom Verlust 


zum Gewinn 


Während im Vergleichszeit- 
raum des Vorjahres Com- 
modore noch 36,7 Millionen 
Dollar Verlust machte, ist es 
in diesem Jahr gelungen, 
bei einem Umsatz von 169,5 
Millionen Dollar eine Million 
Dollar Gewinn zu erzielen. 
Damit summiert sich der 
Gewinn in den drei zurück- 
liegenden Quartalen auf 
26,5 Millionen Dollar bei ei- 
nem Gesamtumsatz von 
616,3 Millionen Dollar. Den 
stärksten Anteil hatte nach 
Auskunft von Irving Gould, 
Vorstandsvorsitzender von 
Commodore, das Übersee- 
geschäft, also der Umsatz 
außerhalb Nordamerikas 
der heute 70 Prozent des 
Gesamtumsatzes ausmacht. 
Etwa die Hälfte davon wird 
von der deutschen Ver- 
triebsgesellschaft erwirt- 
schaftet. 


30 000 
Flugkilometer 
zu gewinnen 


Ein Rubbelgewinnspiel ver- 
anstaltet BASF, um seine 
Flexy-Disk zu bewerben. 
Insgesamt 30000 Fludkilo- 
meter gibt es zu gewinnen. 
Eine Besonderheit dabei ist, 
daß die Gewinner darüber 
entscheiden können, mit 
wie vielen Personen sie sich 
die Flugkilometer aufteilen 
wollen. Die Rubbellose gibt 
es überall, wo auch Flexy- 
Disks erhältlich sind oder 
direkt beim Veranstalter, 
der BASF, 6700 Ludwigsha- 
fen, Stichwort „Datenmäßig 
alles roger“. 


ar 
Ze Ja, informieren Sie mich, 
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Greenpeace e.V., Hohe Brücke 1, 2000 Hamburg 11 


. - 
> u I ” =. 
— ge I | “ 

‘ D 
- l Straße/Nummer 5 Se | 
1 ” - 2: 
’ n x % 
\ - 
| PLz/ort za M u 
H Bitte schicken Sie diesen Coupon im Umschlag ) - . 
1 N 
H i 
Ä 


Spendenkto.:Nr. 2061-206 , Postgiro Hmb., BLZ 200 100 20 I 


nn m an an m u sn zn nn nen mann - * 


Sag REENIESCE sag m2A 


nn Ki =. — 


— 


an. 


- 
FE (Gm, _ u a 


KUrS 


In der letzten Folge wurde der allge- 
meine Aufbau eines Pascal-Pro- 
gramms und das Variablenkonzept 
besprochen. Besonders wichtig ist die 
Unterscheidung lokaler und globaler 
Variablen. Die ersteren gelten nur in- 
nerhalb eines Unterprogramms, wäh- 
rend die globalen Variablen von je- 
dem Programmteil genutzt und verän- 
dert werden. 

Oft ist es notwendig, eine Variable an 
eine Prozedur oder Funktion zu über- 
geben. Dies ist sinnvoll, wenn eine 
Prozedur oder Funktion intern Varia- 
blen beliebigen Namens verwenden 
soll. Nur so kann eine Prozedur uni- 
versell in verschiedenen Program- 
men eingesetzt werden. Statt also eine 
Variable bereitzustellen, wird ledig- 
lich der Inhalt, also der Wert der Va- 
riablen übergeben (die FOR-NEXT- 
Schleife wird später in dieser Folge 
besprochen): ; 


Im Hauptprogramm ist die Variable 'z' 
unbekannt, da sie nur im Unterpro- 
gramm deklariert ist. Soll jedoch eine 
Variable sowohl ins Unterprogramm 
übergeben und anschließend im 
Hauptprogramm weiterverwertet 
werden, wird folgende Konstruktion 
verwendet: 


Von Basic 


zu Pascal, Teil 2 


Neben lokalen und globalen Variablen bietet 
Pascal im Vergleich zu Basic weitere wesentliche 
Vorteile: Rekursionen und drei verschiedene 


Arten von Schleifen. 


Zunächst wird im Hauptprogramm die 
Variable x mit dem Wert 100 belegt. 
Anschließend wird ein Kommentar 
ausgegeben. Der Aufruf quadrat er- 
folgt mit der Variablen x. Da das Un- 
terprogramm den übernommenen 
Wert quadriert und anschließend zu- 
rückgibt, hat die globale Variable x 
anschließend den Wert 10 000. Diese 
Zahl wird in der letzten Zeile ausgege- 
ben. 

In einer Funktion erfolgt die Varia- 
blenübergabe etwas einfacher. Der 
allgemeine Aufbau ist wie bei einer 
Prozedur geregelt. Hinter der ersten 
Zeile wird der Datentyp (zum Beispiel 
INTEGER) bestimmt, den die Funktion 
ausgeben soll: 


Der Aufruf einer solchen Funktion ar- 
beitet wie bei einer Standardfunktion: 
Da diese Anweisung einen Wert aus- 
gibt, muß der Wert in einer Variablen 
aufgenommen werden. Bei der Proze- 
dur dagegen wird lediglich die Über- 
gabevariable manipuliert. Somit las- 
sen sich Funktionen auf einfache Art 
schachteln, wie die folgende Pro- 
grammzeile zeigt (sie verwendet die 
oben definierte Funktion): 

x := quadrat(quadrat(x)); 

Hier wird das Quadrat eines Quadrats 
berechnet. Das entspricht x zur vier- 
ten Potenz. 

Werte und Zeichenketten werden mit 


der Anweisung WRITE beziehungs- 
weise WRITELN ausgegeben. Beide 
Anweisungen schreiben ab der aktu- 
ellen Cursorposition. WRITELN be- 
ginnt nach der Ausgabe aber eine 
neue Zeile. Umgekehrt nehmen die 
Anweisungen READ beziehungsweise 
READLN Eingaben entgegen. Die 
Syntax lautet WRITELN('Dies ist ein 
Text: 'text). Der erste Teil in Anfüh- 
rungsstrichen ist wie in Basic eine Zei- 
chenfolge, die auf den Bildschirm ge- 
schrieben wird. Das nachfolgende 
Komma dient als Trennzeichen, das 
die Zeichenkette von der nachfolgen- 
den Variablen text trennt. Sie kann so- 
wohl Zahlen als auch Zeichenketten 
enthalten. 


Soll ein Text auf einem anderen Gerät 
als dem Bildschirm erscheinen, wird 
das Gerät in der Klammer an erster 
Stelle angegeben. Die folgende An- 
weisung leitet die Textausgabe auf 
den Drucker um: WRITELN(LST, 'Dies 
wird gedruckt’). Das reservierte Wort 
LST steht dabei für „List Device", also 
den Drucker. Die Konsole wird mit 
CON, die serielle Schnittstelle mit 
AUX bezeichnet. 


Bei der Eingabe mit READLN muß der 
Anwender strikt auf die Kompatibilität 
der eingetippten Werte und des Va- 
riablentyps achten. So kann eine 
String-Variable neben Buchstaben 
auch Zahlen entgegennehmen, eine 
Zahlenvariable quittiert einen Buch- 
staben mit einer Fehlermeldung und 
Programmabbruch. Daher ist es sinn- 
voll, bei Eingaben stets eine Zeichen- 
kette entgegenzunehmen und sie an- 
schließend in eine Zahl umzuwandeln. 
Die Anweisung 

VAL(String, Variable, Code) 

erledigt die Konvertierung der Varia- 
blen String in eine numerische Varia- 
ble. In der Variablen Code vom Typ 
INTEGER oder REAL wird eine 0 aus- 
gegeben, wenn die Konvertierung er- 
folgreich abgeschlossen wurde. Sonst 


enthält Code die Position des ersten 
fehlerhaften Zeichens in String. Die 
Variable nimmt dann einen undefi- 
nierten Wert an. Daher empfiehlt sich 
zur Konvertierung folgende Funktion: 


Im Falle einer Fehleingabe erscheint 
durch die aus Basic bekannte IF- 
THEN-Konstruktion eine Fehlermel- 
dung. Da Integerzahlen mit mehr als 
sechs Zeichen nicht vorkommen, ist 
die Zeichenkette auf diese Länge be- 
grenzt. Alle weiteren Zeichen werden 
nicht in den Eingabestring übernom- 
men. Damit ist die Umwandlung er- 
folgreich abgeschlossen. 


PIERRE in einer Modulbox, das keinen inklusive: 
FINAL CARTRIDGE Speicherplatz belegt, und sofort nach %* FREEZER 
eg dem Einschalten zur Verfügung steht * SPIELETRAINER 
ausgezeichnet. Ar DISKTURBO 
—_n k in ! a 
ur Stecken, kein Löten * CENTRONICS- 
=, NEU: geFREEZEte Programme laufen jetzt auch ohne Modul auf jedem C 64! INTERFACE usw. 


FREEZER — Ein Super-Kopierprogramm. Erlaubt 
Komplettkopie (auch aus laufenden, geschützten 
Programmen) auf Diskette oder Kassette. Der 
FREEZER ist voll menügesteuert. Programme las- 
sen sich unterbrechen und später wieder fortsetzen 
(z.B. Schach). 


HARDCOPY — vom Text- oder Grafikbildschirm 
(auch Mehrfarbmodus) ist an beliebiger Stelle des 
Programms möglich. Automatisches Suchen der 
Bilderadressen. 


INTERFACE — Centronics (parallel) oder Commo- 
dore (seriell) für jeden (grafikfähigen) Drucker inte- 
griert. Druckt auch Commodore-Grafik- und Steuer- 
zeichen, inklusive ganzseitigem Bildschirm- 
Ausdruck in zwölf(!) Grautönen. 


MONITOR — Komfortabler Maschinensprache- 
Monitor: z.B. Auslesen, Abspeichern (auch der 
RAMs »unter« den ROMs mittels Bank-Umschal- 
tung), Suchen, Füllen, Vergleichen, Verschieben, 
Assemblieren, Disassemblieren, Druckerausgabe 
möglich. 


Medica 


Wenn — dann — sonst 
FON DCBEARTECTEI ZN 


In Pascal wird nach IF-THEN nur eine 
einzige auszuführende Anweisung er- 
wartet. Soll aber eine Bedingung meh- 
rere Anweisungen umfassen, so wer- 
den die Befehle wie im folgenden Bei- 
spiel mit BEGIN und END eingeklam- 
mert. Um die Übersicht zu erhöhen, 
rücken die meisten Programmierer 
zwischen den Befehlen BEGIN und 
END fünf Leerzeichen ein, so daß das 
dazugehörige END direkt unter dem 
BEGIN steht. Dadurch kann leicht 
kontrolliert werden, ob zu jedem BE- 
GIN auch ein END vorhanden ist. 


Leider wird bei der vorgestellten 
Funktion der Bildschirm nicht von 
dem fehlerhaften Eintrag befreit. Mit 
einer FOR-Schleife ist das Problem 
schnell gelöst: Für jedes während der 
fehlerhaften Eingabe geschriebene 
Zeichen soll ein löschendes Back- 
space (ASCII-Code 8) ausgeführt wer- 
den. Dazu muß die Länge der Einga- 
be mit LENGTH(variable) berechnet 
werden. Das Ergebnis ist stets eine 
Integerzahl. 


DAS Betriebssystem für den Expansionsport Ihres C 64/C 128 (C 64-Modus) 


SPIELETRAINER — Der Trainer erlaubt das Ab- 
schalten der Sprite-Kollision. Dadurch ist es mög- 
lich, sich durch das Spiel (Adventure) zu bewegen, 
ohne in Gefahr zu geraten. 


FLOPPYTURBO — Diskettenzugriff beim Laden und 
Speichern bis zu 6mal schneller, Beschleunigung 
auch bei anderen Funktionen. 


DATASETTEN-TURBO — 10mal schneller, auch bei 
Datenfiles. Normale Commodore-Befehle. Kompati- 
bel zu Standard-Turbos. 


24-KBYTE-EXTRA-RAM — »unter« den ROMs für 
BASIC-Programme nutzbar. 


BASICTOOLKIT — mit AUTO, RENUM (inkl. 
Sprungadresse), FIND, OLD, HELP {hilft bei 
Programmierfehiern), DEL (zum Zeilenlöschen), 
(D)APPEND (»Anhängen« von Programmen bei 
Disk(!) oder Kassette), etc., ca. 40 Extra-Befehle 
insgesamt. 


1! SENSATION !! 


Weltweit über 50.000mal FINAL CARTRIDGE verkauft!! 
Wegen des riesigen Erfolges ab sofort nur noch 


Centronics-Userport-Druckerkabel (ca. 100 cm lang) DM 39,— 
Kopmanshof 69, 3250 Hameln 1, Tel. 05151/43266 


Der Aufbau des in Pascal etwas ver- 
pönten FOR-NEXT ist der Basic-Ver- 
sion ähnlich: Lediglich die STEP-An- 
weisung fehlt. Die Schrittweite ist im- 
mer 1. Soll abwärts gezählt werden, 
wird statt dem reservierten Ausdruck 
TO der Ausdruck DOWNTO einge- 
setzt. 

Während im ersten Listing die Fehler- 
meldung in eine neue Zeile geschrie- 
ben wird, steht die Meldung an der 
Stelle der fehlerhaften Eingabe. 


DISK-MONITOR — Auslesen der Inhalte von 
Spur/Sektor, Ändern und Zurückschreiben auf Disk, 
Zugriff auf Floppy-Speicher (RAM und ROM) inklu- 
sive Änderungen (RAM). 


PROGRAMMIERTE FUNKTIONSTASTEN — belegt 
mit RUN, DLOAD, DSAVE, DIRECTORY, MONITOR, 
DOS-Befehle, LIST (umgeht jeden LIST-Schutz). 
ERWEITERTE TASTATURFUNKTIONEN — erlaubt 
teilweises Löschen von Zeilen, wartet bei Listings, 
setzt Cursor in die linke untere Ecke, POKE's- und 
SYS-Aufrufe in Hexadezimalzahlen. TYPE-Befehl 
läßt Ihren Drucker wie eine Schreibmaschine arbei- 
ten. 


RESETTASTER — Reset-Sprung in das Monitor- 
Programm. Reset ohne Programmverlust (Old), Re- 
set aus jedem geschützten Programm. 

Versand durch Nachnahme oder Vorscheck 

plus Porto/Verpackung (DM 12,—). 


Händleranfragen erwünscht 
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Vielen Basic-Programmierern ist die 
und die REPEAT-UNTIL- 
Schleife bereits aus neueren Basic- 
Versionen bekannt. Sie arbeiten ele- 
ganter als die FOR-NEXT-Schleife. Al- 
len gemeinsam ist, daß eine Reihe von 
Befehlen wiederholt wird, bis eine be- 
stimmte Bedingung erfüllt ist. Bei der 
FOR-NEXT-Konstruktion ist das be- 
kanntlich das Erreichen einer be- 
stimmten Anzahl von Durchläufen. Bei 
den beiden anderen Typen werden 
beliebige Bedingungen geprüft. 


Dieses Programm verwendet beide 
Schleifentypen. Während bei der 
WHILE-Schleife die Bedingung (hier: 
„Istx kleiner 10°") vor jedem erneuten 
Durchlauf getestet wird, prüft RE- 
PEAT-UNTIL die Bedingung erst nach 
jedem Durchlauf. Damit gibt die erste 
Variante die Zahlen 1 bis 9, die Va- 
riante mit REPEAT-UNTIL jedoch die 
Zahlen 1 bis 10 aus. 

Beide Schleifentypen sollten immer 
sauber verlassen werden. Es sollten 
also die Bedingungen jeweils wahr 
(bei WHILE) oder falsch (bei REPEAT- 
UNTIL) gemacht werden, um die Wie- 
derholung abzubrechen. 


Prozeduren rufen sich 
selber 


Ein besonders elegantes Thema in 
Pascal sind rekursive Prozeduren. 
Das sind Unterprogramme, die sich 
selber aufrufen und dabei Werte an 
sich selbst übergeben. Die Prozedur 
wird also immer wieder mit neuen 
Werten abgearbeitet, wobei die Wer- 
te durch die Prozedur selbst berech- 
net werden. Auf diese Weise wird 
zum Beispiel sehr schön die Fakultät 
berechnet. Die Fakultät von 5 ist be- 
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kanntlich 5x4x3x2xl. In Pascal sieht 
die Berechnung so aus: 


Die Anweisung |$A-) ist ein Befehl an 
den Compiler, den rekursiven Code 
zu erlauben. Normalerweise unter- 
stützt die CP/M-Version des Turbo- 
Pascals keine Rekursionen, um Spei- 
cher und Rechenzeit zu sparen. 


3,2,1 statt 1,2,3 
rm arte 


Die Prozedur fakul ist in sich selbst 
verschachtelt aufgebaut. Zunächst 
wird der Prozedur ein identisches 
Wertpaar in die Variablen eingabe 
und ausgabe übergeben. Anschlie- 
ßend muß der um eins erniedrigte 
Wert in eingabe mit ausgabe so oft 
multipliziert werden, bis eingabe klei- 
ner 2 wird. 

Diese Wiederholung wird über die IF 
wertl > 1 THEN .... Abfrage gesteu- 
ert. Der Aufruf der IF..THEN Kon- 
struktion ruft also immer wieder die 
Prozedur fakul. Nach dem ersten 
Durchgang wird fakul(4,20) gerufen, 
anschließend folgt fakul(3,80). An der 
zweiten Stelle steht immer das Ergeb- 
nis des vorhergehenden Durchgangs. 
Schließlich ist die Abbruchbedingung 
erreicht; wert] ist nicht mehr größer 1. 
Damit bricht die Wiederholung ab. An 
das aufrufende Programm wird die 
Variable fak mit dem richtigen Ergeb- 
nis zurückgegeben. 

Vor jedem rekursiven Aufruf merkt 
sich Pascal alle in der Prozedur be- 
nutzten Variablen. Daher kann eine 
Prozedur auch nach dem rekursiven 
Aufruf weitere Anweisungen enthal- 
ten. Die folgenden drei Prozeduren 
spielen alle Varianten durch. Die Pro- 
zedur zahlenreihe(5) gibt die Werte- 
reihe 0 1234 5 aus. Die Prozedur zah- 


lenreihe2(5) dagegen liefert die um- 
gedrehte Zählung: 543210. Die Pro- 
zedur zahlenreihe(5) produziert beide 
Varianten:543210und 012348. 


Viele mathematische Probleme lassen 
sich auch ohne Rekursionen realisie- 
ren. Doch wenn man das Prinzip erst 
einmal verstanden hat, will niemand 
mehr auf diese Möglichkeit verzich- 
ten. Schließlich sollen Programme 
möglichst übersichtlich und vor allem 
schnell sein. 


Turbo-Turtle 
ee 


Auf einem Amiga 2000 mit MS-DOS- 
Karte oder einem Amiga 1000 mit 
Sidecar läuft die IBM-Version von 
Turbo-Pascal (die aktuelle Version ist 
3.02 A). Hier ist zusätzlich die Turtle- 
Grafik implementiert. Dieses Grafik- 
Konzept ist Logo-Programmierern be- 
kannt. Mit einfachen Befehlen wie bei- 
spielsweise Forward, Back, Turnleft 
und Turnright wird eine „Schildkröte“ 
über den Bildschirm gescheucht, die 
in ihrem Maul einen Bleistift hält. Mit 
Hilfe des kleinen Tierchens können 
komplizierte, rekursive Figuren er- 
zeugt werden. Sollte nicht das ge- 
wünschte Muster erscheinen, läßt sich 
der Zeichenablauf einfach korrigie- 
ren. 

Weitere Vorteile von Turbo-Pascal: 
Komplexe Datentypen wie Records, 
Mengen oder Arrays. Sie erleichtern 
die Programmierung wesentlich, wie 
die nächste Folge zeigen wird. (pv) 
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Drucker 


Drucker 


unter 


2000 Mark 


Das Druckerangebot im mittleren 
Preisbereich zwischen 1000 und 2000 
Mark steigt rapide an. Wir informie- 
ren über das aktuelle Angebot und 
stellen drei interessante Geräte vor. 


Unter dem Motto „Jedem 
seinen Drucker" steht das 
Titelthema dieser Ausgabe. 
Berücksichtigt wurden dies- 
mal ausschließlich Geräte, 
die weniger als 2000 Mark 
kosten. Wie in der letzten 
Ausgabe (ab Seite 24) er- 
wähnt, werden im Heimbe- 
reich Nadeldrucker in den 
nächsten Jahren weiterhin 
den Markt beherrschen. 
Aufgrund dieser Überle- 
gung wurden auch in dieser 
Ausgabe Typenrad-, Tinten- 
strahl- und Laser-Drucker 
ausgeklammert. Schließlich 
sollen möglichst viele Leser 
sinnvolle Informationen aus 
unseren Beiträgen ziehen. 
Im nächsten Heft schwen- 
ken wir dann ein wenig in 
Richtung „höherwertige 
Drucktechnologie" über. 
Beschrieben wird der lang- 
wierige Werdegang aus ei- 
ner Vielzahl von Einzelteilen 
bis zum fertigen Tinten- 
strahldrucker und es wird 
ein brandneuer Drucker 
dieser Gattung vorgestellt. 

Auf den nächsten vier Sei- 
ten sind Daten und Fakten 
zu Nadeldruckern unter 
2000 Mark aufgeführt. Diese 
Marktübersicht ist zweimal 
so umfangreich wie die im 
letzten Heft. Das liegt natür- 
lich daran, daß es in der 
Preisklasse zwischen 1000 
und 2000 Mark ein größeres 
Angebot gibt. Und dieses 
wird in den nächsten Jahren 
noch größer werden. Span- 
nender ist für die Hersteller 
allerdings die Entwicklung 
in der Low-Cost-Klasse bis 


1000 Mark, denn das ist die 
attraktivste Zielgruppe. 
Schließlich wird ein C64-Be- 
sitzer eher bereit sein, 900 
Mark statt 1500 Mark für ei- 
nen Drucker zu investieren. 
Anders sieht es bei den Be- 
sitzern eines Amiga's aus. 
Sie haben mehr für bessere 
Computertechnik bezahlt 
und sind eher gewillt für ei- 
nen Drucker tiefer in die 
Tasche zu greifen. Auf Seite 
26 wird der 24-Nadel-Farb- 
drucker NEC-CP6 vorge- 
stellt. In Verbindung mit 
dem Amiga werden die Fä- 
higkeiten des 2114 Mark 
teuren Druckers voll ausge- 
reizt. Die Farbhardcopies 
bestechen durch hohe Auf- 
lösung in satten Farben. Je- 
denfalls wird sich die RUN- 
Redaktion weiterhin dem 
Thema Drucker widmen 
und laufend über Neuigkei- 
ten berichten. 


SP-1200 VC 
billiger als 
angegeben 


In der letzten Ausgabe 
wurde für den Seikosha 
SP 1200VC der falsche 
Preis angegeben. Er ko- 
stet 649 statt 798 Mark. 
Weiterhin werden sich 
Englisch-Sprachmuffel 
freuen, denn der Drucker 
wird hierzulande mit ei- 
nem 112 Seiten starken, 
deutschen Handbuch aus- 
geliefert. 
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Hersteller Modell 


GmbH 
Nakajima Ltd. 
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Toshiba Int., Japan 
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Siemens AG 
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GmbH 


SG-15 | Star Mieronies 
GmbH 

Seikosha Europe 
GmbH 


Hersteller- und Anbieterverzeichnis 


(1) Binder Datentechnik 
Mönchweilerstr. 1 

30 Villingen 
07721/880 


(2) Brother International GmbH 
Im Rosengarten 14 
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06101/805-0 
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Drucker 


Im Test: Drucker vom Feinsten 


Saubere Schrift, hohe Geschwindigkeit — der 
Pinwriter von NEC repräsentiert die neue 
Generation der Matrixdrucker. 


Altdeutsche Schrift läßt sich nachladen. 


Wer Jahrzehnte gewöhnt war, mit ei- 
nem Füllfederhalter zu schreiben, 
wird sich schwerlich an eine Schrift 
gewöhnen, die nur ausein paar Pünkt- 
chen besteht. Die Matrixdrucker mit 9 
Nadeln verfügen daher meist auch 
über einen NLQ-Modus, in dem durch 
zweimaliges Überschreiben der Zeile 
die Pixelzahl pro Zoll verdoppelt wird. 
Nachteil: Der Drucker erreicht nur 
noch 30 — 40 Prozent seiner Schreib- 
geschwindigkeit. Dennoch ist der 
punktweise Aufbau der Schrift zu er- 
kennen. 


26 Gm Au rn 


Druckertreiber für höchste Auflösung: Signum auf dem ST. 


Um saubere Schriftergebnisse zu er- 
zielen, wird sich mancher mit dem Ge- 
danken tragen, einen Laserdrucker 
anzuschaffen. Eine preiswerte Alter- 
native stellt der 24-Nadel-Drucker 
dar. Günstiger Preis und geringe Be- 
triebskosten sind die Vorteile gegen- 
über den Non-Impact-Druckern. Wir 
testeten den NEC CP7 stellvertretend 
für die Geräte der Pinwriter-Serie, die 
sich in den Features Druckbreite und 
Farbdruck ja/nein, unterscheiden. 
Der CP7 jedenfalls kann breites Druk- 
kerpapier bis 40 cm bedrucken, auf 


Wunsch auch farbig. Über Preferen- 
ces des Amiga wollten wir den ent- 
sprechenden Druckertreiber einstel- 
len. Leider enthält nicht jede Work- 
bench auch einen Druckertreiber für 
den MPS 2000 (nur ein anderer Name 
für den Pinwriter). Ist die richtige 
Workbench gefunden, muß über 
„Change Printer" der MPS 2000 einge- 
stellt werden. Im Menü „Graphic Se- 
lect" stellten wir noch ein, ob in Farbe 
oder schwarzweiß ausgedruckt wer- 
den soll. „Treshhold" sollte nach unse- 
ren Erfahrungen auf 8 eingepegelt 
werden. Diese Preferences haben wir 
abgespeichert und Deluxe Paint ge- 
bootet. Soll jetzt gedruckt werden, er- 
kennt das Programm automatisch, daß 
es sich um einen Farbausdruck han- 
delt. Bevor aber das eigentliche Druk- 
ken beginnt, muß der NEC noch mit 
Papier gefüttert werden. Hier hat man 
die Wahl zwischen manuellem und 
vollautomatischem Einzelblatteinzug 
oder einem bidirektionalen Traktor. 
Die letzten beiden Features müssen 
zusätzlich erworben werden. 


Verzerrungsfreie 
Papierführung 
EREERIDTEEE| 


Der bidirektionale Traktor überzeug- 
te sehr. Vor und nach der Druckwalze 
wird das Papier über die Traktorsta- 
cheln geführt und gespannt. Absolut 
verzerrungsfreie Papierführung, so- 
wohl vorwärts wie rückwärts, ist somit 
möglich. Ein Nachteil hat diese auf- 
wendige Papierführungstechnik aller- 
dings: Fast ein halbes Leerblatt muß 
nachgeschoben werden, um ein frisch 
bedrucktes Blatt entnehmen zu kön- 
nen. Wer seine Computeranlage dazu 
benutzt, um vor Ort Kundenrechnun- 
gen zu schreiben, muß jedes zweite 
Blatt in den Mülleimer werfen oder 
sich des vollautomatischen Einzel- 
blatteinzugs bedienen. Dieser wird 
wie der Traktor mit einem Handgriff 
auf den Drucker gesteckt. Für die 
Kundenrechnungen ist diese Version 
sicher ideal: So kann man vorbe- 
drucktes DIN-Papier verwenden und 
muß nicht für viel Geld Endlospapier 
bedrucken lassen. Ändere Anwender 
werden wiederum benachteiligt: Sol- 
len Massenbriefe geschrieben wer- 
den, muß immer ein Operator dane- 
ben stehen, der den Papierschacht 
nachfüllt. Ein anderer Nachteil ist erst 
aufgefallen, als es zu spät war: Damit 


der Drucker nicht die Redaktionsar- 
beit stört, sollte er einen Serienbrief 
über Nacht abarbeiten. Als die Re- 
dakteure am anderen Morgen das 
Büro betraten, war der ganze Raum 
mit den bedruckten Blättern übersät. 
Der Grund: Eine Vorrichtung, die die 
bedruckten Blätter aufnimmt, ist bei 
der Entwicklung vergessen worden. 
Der Anwender muß sich beim Kauf 
auf jeden Fall darüber im klaren sein, 
wozu er den NEC einsetzen will. Sich 
beide Papierführungsmöglichkeiten 
anzuschaffen, geht nämlich mächtig 
ins Geld. 


Start des Probedrucks: Nach der 
Print-Anweisung verstrichen erst ein- 
mal ein paar Sekunden. Dann aber 
setzte der Drucker zu seiner Arbeit 
an. Allerdings sehr gemächlich. Lan- 
ge Pausen zwischen den einzelnen 
Grafikzeilen zogen die Druckdauer 
schier ins Unendliche. Bis zu sechsmal 
muß der Druckkopf über das Papier 
gehen, bis alle Farben aufgetragen 
sind, obwohl das Farbband nur je eine 
gelbe, rote, blaue und schwarze Spur 
hat. Schuld daran ist der Druckertrei- 
ber auf der Commodore-Workbench. 


Der Vizawrite-Druckertreiber für den 
NEC geht da schon viel dynamischer 
zur Sache, kann bisher aber keine 
Farbbilder verarbeiten. Das Ergebnis 
ist in beiden Fällen exzellent (Bild 1: 
Amiga-Ausdruck). Die richtigen Farb- 
nuancen zu erwischen, ist allerdings 
Glückssache. Nicht alles, was auf dem 
Bildschirm gut aussieht, besticht nach 
dem Farbausdruck. Hier wird ein gro- 
ßes Manko deutlich. Der NEC kann 
wesentlich mehr, als die Computer 
und die Software verlangen. Uns ist 
bisher keine Amiga-Software be- 
kannt, die den Download-Modus des 


NEC ausnützt. Die Einzelnadelsteue- 
rung des Druckers bringt eine Auflö- 
sung von 360 x 360 Pixel pro Zoll, dem 
entsprechen 3600 Bildpunkte horizon- 
tal — wo ist bitte der Computer, der 
das aufweisen kann? Selbst wenn vier 


Amiga-Bildschirme nebeneinander- 
gelegt werden, hat man erst 2560 hori- 
zontale Bildpunkte. Wohlgemerkt — 
Druckertreiber, die mit dem NEC zu- 
sammenarbeiten, gibt es für nahezu 
jedes Programm und jeden Compu- 
ter, sie reizen nur die Fähigkeiten ei- 
nes 24-Nadel-Druckers nicht aus. Hier 


sind die Softwarehäuser gefordert. 
NEC ist natürlich sehr daran interes- 
siert, daß es Druckertreiber für alle 
Anwender gibt. Daher ist der Support 
des Hauses für die Softwareentwick- 
ler überdurchschnittlich gut. Zumin- 
dest für den Atari ST existieren mitt- 
lerweile einige sehr gute Druckertrei- 
ber. Mit einem speicherresidenten 
Druckertreiber für PCs, der die Grau- 
wertberechnungen an den 24-Nadel- 
Modus anpaßt, hat NEC selbst den 
Anfang gemacht. Commodore liefert 
mittlerweile mit der neuesten Version 
der Amiga-Workbench einen verbes- 


serten NEC-Treiber aus: Im Farbmo- 
dus wird nun auch bidirektional aus- 
gedruckt. Weitere Entwicklungen 
sind bei Commodore nicht geplant — 
schade! 

Die Probeausdrucke demonstrieren 
eindrucksvoll die Fähigkeiten des 
Pinwriters: Nachladbarer Zeichensatz 
oder der spezielle WYSIWYG-Mode 
(what you see is what you want) des 
Textverarbeitungssystems Signum für 
den Atari ST. Signum ist das einzige 
Programm, welches den Pinwriter in 


der höchsten Auflösung von 360 x 360 $> 
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Punkten pro Zoll ansteuert. Der Trick 
dabei ist, daß alle editierten Zeichen 
zweimal existieren: einmal in geringe- 
rer Auflösung für den Bildschirm und 
ein zweites Mal in der hohen Auflö- 
sung des Druckers (die übrigens fei- 
ner ist als die eines Laserdruckers). 
Schon bei dem ganz normalen einge- 
bauten Zeichensatz werden die Vorzü- 
ge des NEC deutlich: Kursivschrift er- 
scheint wirklich als solche und nicht 
als verzerrte Treppenstruktur. 

In Letter Quality mit 15 Zeichen pro 
Zoll zaubert der NEC 90 Zeichen in 
der Sekunde auf das Papier. Wird ein 


CP7: Hoch- schneller Probeausdruck benötigt, 
entwickelte bei dem es nicht so sehr auf die 
Drucktechnik Schönheit ankommt, erreicht der 
in solidem Pinwriter immerhin 216 Zeichen pro 
Gehäuse. 


Sekunde im Highspeed-Modus. Die 
ausgewählte Schriftart wird über eine 
LED-Anzeige im Inneren des Gehäu- 
ses angezeigt. 

Gesamteindruck: Toll, toll toll! Ein- 


Technische Daten schränkungen gibt es beim Papier- 

handling. Der User sollte sich fragen, 
Pinwriter (C)P6/7 ob die Option Farbausdruck wirklich 
Hersteller NEC nötig ist. So oft wird er davon nicht Ge- 
Druckprinzip 24-Nadel-Matrix brauch machen und die Farbbänder 
Preis verschmieren doch leicht (besonders 
P6/P 1650/2340 Mark das Gelb). 
CP6/CP7 2114/2684 Mark Die offiziellen Händlerpreise, die zum 
Druckgeschwindigkeit Schnellschrift 214 Teil weit unterschritten werden, sind: 
(in Zeichen pro Sek.) Schönschrift 60/72/90 P6 — 1650 Mark und P7 (breiter Wa- 
Zeichensätze 12 internationale, ASCII-Standard gen) — 2340 Mark. Die Farboption 

IBM G, Kursiv, 128 anwenderdefinierte Zeichen macht es eine Ecke teurer: CP6 kostet 

Durchschläge l Original und 3 Kopien schon 2114 Mark und CP7 2684 Mark. 
Grafikauflösung bis 360 Punkte pro Zoll Der vollautomatische Einzelblattein- 
Spaltenbreite 80/136 zug verschlingt nochmal 860 Mark (für 
Puffer 8 KByte den 7er 1070 Mark), dafür gibt es den 
Kompatibilität zu Epson LQ 1500, IBM-Zeichensatz, NEC P5 bidirektionalen Traktor für 384 (448) 

Mark. 

(uk) ; Eu; DER SE 


Auch wenn 
es uns nicht u) 
so ergeht | nz Die Redaktion 
wie diesem ae freut sich über 
Kollegen: ne Ihren Leserbrief! 
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Aktuelle COMMODORE Buchhits 


Anfangen und gleich richtig loslegen - das 
wünscht sich jeder, der in die Computerei ein- 
steigt. Mit 64 für Einsteiger geht das ganz pro- 
blemios. Vom Anschluß über ein erstes Pro- 
gramm bis hin zu einer kompletten Adreßver- 
waltung wird Ihnen dieses Buch immer wieder 
gute Dienste leisten. Alle Themenbereiche wer- 
den systematisch und verständlich dargestellt. 
Aufstellen, anschließen, kennenlernen, das 
erste Programm - und schon kann es welter- 
gehen. 64 für Einsteiger, natürlich auch mit 
einer umfangreichen GEOS-Einführung. 

64 für Einsteiger, 251 Seiten, DM 29,— 


Ein DATA BECKER Buch 


Maschinensprache für Einsteiger, das ist kein 
unverständliches Lehrbuch, sondern ein Buch, 
mit dern wirklich jeder, der sich dafür interes- 
siert, schnell Maschinensprache lernen kann. 
BASIC-Routinen heranziehen, Befehle und 
Strukturen vergleichen und schließlich selbst in 
Assembler umsetzen - durch dieses Konzept 
sind Sie bald in der Lage, die Vorteile dieser 
Profi-Sprache zu nutzen. Eine echte Chance für 
jeden Interessierten. 

Commodore 64 & 128, C16/C116/Plus 4 — 
Maschinensprache für Einsteiger 

346 Seiten, DM 29,— 


EIN DATA BECKER BUCH 
IAM 


Mit dem Commodore 128 ist der professionelle 
Einstieg in die Computerwelt möglich - vor- 
ausgesetzt, Sie haben das richtige Buch dazu. 
Denn es gibt viel zu verstehen: Laden und 
Starten von Programmen, Peripheriegeräte, 
BASIC, das Erstellen eigener Programme wie 
zum Beispiel einer Adreßverwaltung und und 
und. Dieses Buch ist genau auf die Bedürf- 
nisse eines Einsteigers zugeschnitten - so 
bleibt kein Problem ungelöst. Mit GEOS-Einfüh- 


rung. 
Commodore 128 für Einsteiger 
288 Seiten, DM 29,— 


Alles Trainingssache - dieser Spruch gilt noch 
immer. Erst recht, wenn es um BASIC geht: Das 
BASIC-Trainingsbuch zum C64 verrät Ihnen 
alles über Unter amme und Menütech- 
niken, über Bits und Bytes. Aufgaben helfen, 
den Wissensstand zu überprüfen, kleine, aber 
teine Programme sorgen dafür, daß die Sache 
= macht. Natürlich gibt es auch eine Ein- 

ihrung in Grafik und Sound. Und eine Datei- 
verwaltung als Abschlußarbeit. 


Brückmann - Englisch - Felt 
Geitand : Gerits - Kranik 


Ein DATA BECKER Buch 


Für dieses Buch ist keine lange Vorrede nötig. 
Ein paar Daten zur neuesten Auflage: 5., völlig 
überarbeitete Auflage, 628 Seiten. Auszug aus 
dem Inhalt: Soft-Scrolling, Sprungvektoren und 
Autostart, komplette Hordware-Beschreibung, 
Reparaturhilfen, die ClAs, der BASIC-Interpre- 
ter, VIC und SID, zeilenweise kommentiertes 
ROM-Listing, Interruptprogrammierung, BASIC 
intern, original Commodore-Schaltpläne. Ver- 
abschieden Sie sich von Ihren Freunden: 

628 Seiten Herausforderung worten auf Sie. 


64 Intern 
Hardcover, 628 Seiten, DM 69,— 


Wer den Einstieg in den 128er hinter sich hat, 
der sucht weiterführende Informationen: Wie 
funktioniert die Menü-Programmierung, wie 
schreibt man Sortierroutinen oder erstellt 
mehrdimensionale Felder... Mit dem großen 
BASIC-Buch zum Commodore 128 bekommen 
Sie Antworten. Praktische Beispiele helfen, das 
Gelernte zu vertiefen - bis Sie dann in der 
Lage sind, selbst von der Problemanalyse bis 
zum fertigen Programm zu finden. 

Das große BASIC-Buch zum C128 
Hardcover, 454 Seiten, DM 39,— 


DATA BECKER 


Pereningenie. 30 - 4000 Düsseldorf - Tel. (0211) 310010 
ee ER ie 


Dos ist das auflagenstärkste deutsche Compu- 
terbuch. Warum? Schauen Sie mal rein, dann 
werden Sie verstehen, was Zehntausende von 
64 er-Fans daran begeistert. Bubbelsort in 
Assembler, Stereosynthesizer, Spriteeditor, 
Verbesserungen zum BASIC 2.0, Datazeilen- 
generator, Autostart, Datenübertragung zu 
anderen Rechnern - und das ist nur ein kleiner 
Ausschnift. Sparen Sie sich langes Suchen - 
was Sie an Tips & Tricks kennen müssen, gibf's 
in einem Buch. 

64 Tips und Tricks, Band 1 

418 Seiten, DM 49,— 


Ein DATA BECKER Buch 


Wer seine 1541 nur mit LOAD und SAVE ab- 
speist, der hat sicher noch nicht das große 
Floppy-Buch gelesen. Denn schon bei der ein- 
fachsten Datenverwaltung gibt es einige 
Kniffe. Und was halten Sie von einen Super- 
Diskmonitor mit Zugriff auf 40 Tracks, einem 
zeilenweise dokumentierten DOS mit Cross- 
Reference, einem Kapitel über Kopierschutz 
oder Themen wie Direktzugriff, Overlaytechnik? 
Und natürlich gibt es hier auch alle Neuigkei- 
ten über die neue 1541 C. So macht man Stan- 
dardwerke mit Zukunft. 

Das große Floppybuch zur 1541 

Hardcover, 520 Seiten, DM 49,— 


Wissen Sie, wie man die doppelte Rechnerge- 
schwindigkeit im 64er Modus erreicht? Oder 
wie man einen eigenen Zeichensatz erstellen 


kann? 427 Seiten voll Ideen mit vielen Beispiel- 


programmen und ausführlichen Erklärungen, 
damit Sie die Routinen nicht nur abtippen, 
sondern auch verstehen können. Dazu 
kommt noch eine ganze Menge all- 
gemeiner Informationen zum 

C128 - schließlich soll nicht 

nur Ihr Rechner Neues 


Das 100%-Buch, inklusive der Befehlserweite- 
rung Supergrafik auf Diskette, die über 100 
neue Befehle, 16 Sprites, Text und Grafik gleich- 
zeitig, Hires- und Multicolor-Grafik bietet. Zu 
jedem dieser neuen Befehle finden Sie im Buch 
Top-Beispielprogramme. Außerdem: Funktions- 
plotter, 3-D-Grafik, Hardwaregrundlagen.... 
Schließlich als krönender Abschluß: der Super- 
grafik-Source-Code vollständig dokumentiert. 
Das Supergrafikbuch zum C 

rg 726 Seiten, inkl. Diskette, 

DM 49,— 


Schützen Sie Ihre Programme mit einem opti- 
malen Kopier- und Programmschutz. Ihre 
BASIC-Programme, aber auch Ihre Programme 
in Maschinensprache, Kassetten-, aber auch 
Diskettenprogramme. Dabei brauchen Sie kein 
Profi sein, denn alles wird ausführlich erklärt: 
Illegal Opcodes, die Nutzung von Track 36 bis 
41, Half-Tracks, Killertracks. Einschrittdecodie- 
rer und und und. Dieses Buch lüftet die 
Geheimnisse wirkungsvoller Kopierschutzver- 
fahren und zeigt Softwarehöusern, wie erfolg- 
reiche Cracker vorgehen. 

Das Anti-Cracker-Buch für C64/C128 

379 Seiten, DM 39,— 


Drucker 


180 Zeichen pro 
Sekunde schnell 


ist der hier abge- 
bildete ND-10 
von Star. Der Bru- 
der NR-10 druckt 
60 Zeichen mehr 


im gleichen Zeit- 
raum. 


Zwei neue Neun- 
Nadel-Renndrucker 


Schnell, stabil und möglichst preiswert muß ein 
Nadeldrucker sein. Eine Standardschnittstelle darf 
auch nicht fehlen. Diesen Forderungen werden 
der ND-10 und NR-10 von Star gerecht. 


Mit den brandneuen 9-Nadel-Matrix- 
druckern ND-10 und NR-10 erschließt 
Star den mittleren bis gehobenen An- 
wenderkreis. Die Drucker sind für 
1295 Mark beziehungsweise 1595 
Mark zu haben. Sie sind in identischen 
Gehäusen untergebracht. Der NR-10 
druckt mit 240 Zeichen im Draft-Mo- 
dus 60 Zeichen mehr pro Sekunde als 
sein Zwillingsbruder ND-10. Beide 
sind serienmäßig mit Centronics- 
Schnittstelle ausgestattet. C64- oder 
C128-Besitzer können diese Drucker 
nur mit einem Hardware- oder Soft- 
ware-Interface betreiben. Da in bei- 
den Druckern eine Epson FX-85-Emu- 
lation eingebaut ist, werden die Druk- 
ker von den meisten Profiprogram- 
men unterstützt. Falls in einem Pro- 
gramm der FX-85 Modus nicht vorge- 
sehen ist, den FX-80 Modus wählen. 

Amiga-Besitzer mit IBM-Karte sind fein 
raus. Betreiben sie Ihren Computer im 
IBM-Modus, können sie den Prowriter 


Diese Zeile in 


Diese Zeile in NLQ 


S L \ 


Diese Zeile ist 


oder den IBM-Grafik-Modus anwäh- 
len. Bildschirm-Hardcopies lassen 
sich dann ohne zusätzliche Utility-Pro- 
gramme auf dem Drucker ausgeben. 
Utilities sind lediglich für Grafik-Hard- 
copies notwendig, die es in dutzendfa- 
cher Ausführung als Public-Domain- 
Programme gibt. 


Drucker mit Ventilator 
EIREEEETEBENEN TEEN 


Nicht nur der Preis vom NR-10 und 
ND-10 ist unterschiedlich. Der NR-10 
wiegt 800 Gramm mehr als der Dop- 
pelgänger. Nach dem Einschalten der 
Stromversorgung weiß man auch war- 
um: Im NR-10 ist ein kleiner Ventilator 
eingebaut, um das Gerät vor Überhit- 
zung zu schützen. Er ist kaum hörbar. 
Die Kühlaggregate im Amiga 2000 
oder IBM-Nachbauten sind wesentlich 
lauter, speziell dann, wenn die Com- 


Normalschrift (Fica) 


d 


fett 


puter mit einer zusätzlichen Festplatte 
ausgestattet sind. Und der Ventilator 
des NR-10 ist eine sinnvolle Ergän- 
zung, denn bei 240 Zeichen pro Se- 
kunde werden Motor und Druckkopf 
bei Dauerbetrieb stark beansprucht. 
Die entstandene Wärme muß abge- 
führt werden, um Überhitzung emp- 
findlicher Teile zu vermeiden. 

Was den mechanischen Aufbau des 
ND-10 und NR-10 betrifft, gibt es keine 
Mängel. Die Drucker sind mit solider 
Mechanik ausgestattet, die eine ex- 
trem hohe Lebensdauer verspricht. 
Auch das Schriftbild läßt keine Wün- 
sche offen. Bild 1 zeigt eine Schriftpro- 
be. Der Buchstabe M wurde im NLQ- 
und Draft-Modus gedruckt und fünf- 
fach vergrößert. 

Gut durchdacht ist das Bedienungs- 
feld des Druckers. Speziell vom Wahl- 
schalter für die Papierlänge dürfte im 
semiprofessionellem Bereich häufig 
Gebrauch gemacht werden. Man 
denke an einen schnellen Wechsel 
zwischen Endlospapier und Etiketten. 


Kontrolle mit LEDs 
EEE 


Wie bei allen Star-Druckern läßt sich 
die Schriftgröße und somit die Anzahl 
der druckbaren Zeichen pro Zeile per 
Drucktaster bestimmen. Zur Auswahl 
stehen Proportional, 80, 96 oder 137 
Zeichen. Mit einem weiteren Druckta- 
ster läßt sich der NLQ-Modus aktivie- 
ren. Die jeweiligen Einstellungen si- 
gnalisieren LEDs. 

Wer den NR-10 im Büro betreiben 
möchte und häufig Briefe oder Listen 
ausdruckt, sollte sich eine Schall- 
schluckhaube anschaffen. Denn umso 
schneller ein Nadeldrucker die 
Zeichen zu Papier bringt, desto lauter 
wird er. Schließlich zählt der NR-10 
mit seiner Geschwindigkeit (240 
Zeichen pro Sekunde) zu den schnell- 
sten in seiner Preisklasse. Diejenigen, 
die diesen Drucker zu Hause betrei- 
ben, sollten zu später Nachtstunde die 
Druckgeschwindigkeit drosseln. Hier- 
für steht die Steuersequenz „drucken 
mit halber Geschwindigkeit" zur Ver- 
fügung. 

Was die Handbücher des ND-10 und 
NR-10 Drucker anbelangt, muß man 
den Verfassern ein dickes Lob aus- 
sprechen. Ob Informationen für Erst- 
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anwender oder Profis, sämtliche er- 
klärenden Texte sind in leicht ver- 
ständlichem Deutsch geschrieben, 
und wo nötig, verdeutlichen Grafiken 
das Beschriebene. 


a Mark (ND-10), 1895 Mark (NR-10) Für diejenigen, die kommerzielle Soft- 


u R ware wie die weitverbreitete Tabel- 
‚Preis pro Farbband ca. 20 Mark, Nachfüllband ca. 16 Mark jonkatkulation Tahas ERS As dis 


Textprogramme Wordstar oder Easy- 
writer II einsetzen, ist ein eigenes Ka- 
pitel gewidmet. Hier wird dem Leser 
gezeigt, wie er seinen Drucker opti- 


Technische Daten Star ND-10 und NR-10 


Ks Per (288 Seiten) mal nutzen kann. Ähnliches gilt für Ba- 
Pi itung e -.. el oder RS232C sic-Programmierer. Ihnen wurde 
ee: inittstell 482 (No parall ), 432 (NLQ), 239 freidefinierbare ebenfalls ein Kapitel in der Anleitung 
Anzahl Zeichen ern See ift oder NLQ) gewidmet. Einziger Nachteil: Die In- 
F te IBM Euer en formationen bauen auf das Microsoft- 
Zeichensä Ori pie zwei Klar Basic auf. C64- ‚oder C128-Besitzer 
er ee rer 9x11 it, müssen sich folglich in die Syntax des 
a 12x 11 IBM-Block at IBM-PC Basics einarbeiten. 
Grafikaulösung bis zu 8240 Punkte/Zoll in vierfacher Dichte Die been 
= bis zu 160 Zeichen (in Proportionalschrift) sind technisch ausgereifte Geräte. So- 
we tenbreite 12.6KB a lide Verarbeitung läßt auf eine lange, 
‚Puffer NLQ. 1 Elite, schmal, breit, proportional, wartungsfreie Lebensdauer schlie- 
Sch riftarten Schatten, fett, R ipt, Subscript, ßen. Beide Drucker sind für den Ein- 
= unterstreichen, überstreichen a mn 2 Br 
Ei: In 2 reise zwischen un ar 
Kompatibilität zu Epson FX-88, IBM-Proprinter, IBM-Grafikdrucker liegen, sind sie auch für den Heiman- 


wender erschwinglich. 


AMIGA 
® ir 


MACHINE 


Ve Mit Deluxe VIDEO (von Electronic Arts) 
und dem DESIGNER CONSTRUCTION 
SET wird Ihr Amiga zum Filmstudio. 

Profi-Designer liefern Ihnen auf 2 Disket- 

ten Bilder, Objekte, perfekt animierte 
ames und einen Videoclip, der Ihrer 
Kreativität freien Spielraum läßt. Story- 
board (von Jimmy Stepanoff, einem Zeich- 
ner der „Unendlichen Geschichte“) und 
a, Handbuch mit vielen, ausführlich er- 
klärten Tricks, ergänzen das Set. 


sa 


Vor der traumhaft schönen Kulisse Afrikas 
voltziebt sich ein Drama, das zum Untergang 
de ten führt. Über 80 Bilder und Objekte. 
Bestelinr\\ 1001 * 2 Disketten *« DM 98,- 


>u 
un 


STARBIRD 

Eine fantastische Zeitreise durch die Unend- 
lichkeit des Alls. Mit 3D-Sequenzen, digitalisier- 
ten Objekten und vielen neuen Tips. 

Bestellnr. 1002 * 2 Disketten + DM 98,- 


| MACHINE Versand nur per Nachnahme 
| E Versandkostenpauschale DM 5,— 
Fa. G. Lechner * 8000 München 60 * Roseggerstraße 1 Händleranfragen erwünscht 


LESERN ER N 


SORELWAr® 


Computern in der 
GEOS-Welt 


Mit Desktop Publishing und einem Adreßbuch, das 
automatisch Telefonnummern wählt, erschließen 
sich unter GEOS neue Welten. Andere Features, 
wie geoFile, geoCalc und eine C128-Version sind 


in Vorbereitung. 


Mit einem kleinen Stand war die Fir- 
ma Berkeley Softworks auf der 86’er 
CES in Las Vegas vertreten, um das 
GEOS-Betriebssystem für den C64 
vorzustellen. 1987 präsentierte Berke- 
ley eine stark erweiterte GEOS-Pro- 
duktlinie auf einem ebenso vergrö- 
Berten Firmenstand. 

Neu in der GEOS-Landschaft ist ein 
Desktop Publisher der mit Laserdruk- 
kern zusammenarbeiten kann, und ein 
nützliches Utensil um Telefonnum- 
mern zu speichern und automatisch 
wählen zu lassen. 


Elektronische 
Schreibwerkstatt 


Der neue Writer's Workshop enthält 
eine Sammlung von Programmen für 
die Textverarbeitung: Desktop Pub- 
lishing mit einer neuen Version (2.0) 
von geoWrite, geoLaser (druckt geo- 
Write-Files auf dem Apple LaserWiri- 
ter aus), Text Grabber (liest Files an- 
derer Textprogramme aus) und geo- 
Merge, mit dem man Daten in die Do- 
kumente einlesen kann. 

Fünf neue Fonts enthält die Samm- 
lung. Davon sind vier auch für den La- 
serdrucker bestimmt, und erlauben 
auch die Verwendung der geschweif- 
ten Klammer (| }) und des Backslashs. 
Der Commodore-Font ist speziell für 
NLOQ-Ausdrucke gedacht. 


geoWrite zum Zwo- 
Punkt-Nullten 


Die Version 2.0 von geoWrite stellt 
eine erhebliche Verbesserung der 
Vorgängerversion dar. Mit ihr kann 
der Text zentriert, rechts- oder links- 
bündig und im Blocksatz dargestellt 
werden. Ein Marker sorgt dafür, daß 
die erste Zeile eines Absatzes automa- 
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tisch eingezogen wird. Um Tabellen 
sauber zu formatieren, gibt es neben 
dem normalen noch einen Dezimal- 
tabulator. 

Die Formatanweisungen lassen sich 
innerhalb eines Textes auch ändern. 
Zum Beispiel kann ein Absatz mit ein- 
fachem Zeilenabstand, der folgende 
mit doppeltem ausgegeben werden. 
Was geoWrite auf das Papier bringt, 
ist jedenfalls exakt das, was auch der 
Bildschirm anzeigt (WYSIWYG). 

In separaten Fenstern können Kopf- 
und Fußzeilen editiert werden. Es ist 
sogar möglich, sich hier Datum, Zeit 
und Seitennummer anzeigen zu las- 
sen. 

Sehr einfach lassen sich Begriffe im 
Text suchen und auch ersetzen. Man 
kann nach kompletten Wörtern oder 
nach Wortfragmenten suchen — so- 
wohl auf der aktuellen Seite, wie auch 
im ganzen Text. Natürlich wird geo- 
Write mit mausgesteuerten Pulldown- 
Menüs bedient. Die wichtigsten Kom- 
mandos lassen sich auch über die Ta- 
statur eingeben. 

Das Programm enthält eine ganze Rei- 
he von Druckeroptionen. Im High- 
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Quality-Modus wird das komplette 
Dokument, Text und Grafik, ausge- 
druckt. Draft-Modus druckt den Text 
in der Normalschrift des Druckers. 
GeoWrite kennt auch den NLQ-Mo- 
dus, vorausgesetzt, daß man mit ei- 
nem entsprechenden Drucker arbei- 
tet. Selbstverständlich läßt sich so- 
wohl mit Einzelblatt wie auch mit End- 
lospapier arbeiten. 

Mit geoLaser läßt sich ein Apple La- 
serwriter von einem C64 ansteuern. 
Es lassen sich Texte und Grafiken in 
bester Qualität ausdrucken. Dabei 
werden die Geos-Fonts durch die des 
Laserdruckers ersetzt. Daher ist es 
wichtig, die obengenannten Laser- 
Writer-kompatiblen Fonts zu verwen- 
den. Andere Fonts können auch ver- 
wendet werden, jedoch erscheinen 
sie nicht in der höchsten Auflösung auf 
dem Papier. In den USA gibt es über 
das kommerzielle Mailboxsystem 
QuantumLink die Möglichkeit, die 
Geos-Seiten von Berkeley auf einem 
LaserWriter ausdrucken zu lassen. So 
etwas sollte sich bei uns auch mal je- 
mand einfallen lassen. 

Wer sich in ein neues Textverarbei- 
tungssystem einarbeitet, möchte na- 


Geos ersetzt Karteikasten, ... 


... Schreibmaschine, ... 


türlich die Files seines alten Pro- 
grammes nicht auf den Datenmüll 
werfen. Um diese Daten in Geosfor- 
mat zu konvertieren, gibt es den Text 
Grabber, der angeblich alle Formate 
auslesen kann. Bei PaperClip, 


DIESE SEITE FEFILT 
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Waaas, das gibt’s...? 


„Ich möchte gern 900,- Mark von 


meinem Konto abheben.“ _ 


RE 
25 


© „Junger Mann möchte größer 
investieren?“ 


> 
r 


+ 
„Ja, in einen Computer mit 64 Kilo- 
Byte und mit Floppy.“ & 


a‘ 


„Kauf’ Dir doch einen mit 512 KB, 
das sind achtmal mehr als 64. Einen E 
16/32-bit Computer mit hoher E 
Arbeitsgeschwindigkeit, bestechen- 
der Grafik, Fernsehanschluß und 
einer 500 KB-Floppy.“ 

.— m 
„Da muß ich ja noch ewig sparen...“ ““ 2. 

\ ” 

N 
N Nein, den ATARI 520 STM 
gibt es für nur 898,- Mark mit Floppy 


Maus.“ 
.— und Mau 


„Eh, Super!“ 
u 
u 
——— m „Ein guter Tip von mir. 
Hättest Du wohl nicht erwartet. 
Ss Dazu noch kostenlos!“ 
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Fast jeder Anwender 
kennt diese Situationen! 
Der Rechner ist abge- 
stürzt, das neue Be- 
triebssystem funktio- 
niert nicht. Hier hilft ein 
Blick in den Speicher. 
Die abgedruckte Schal- 
tung macht dies möglich. 
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Dem Rechner in 


die Bytes 


Diese Schaltung, die für den Commo- 
dore 64 ausgelegt ist, aber auch auf 
andere Systeme umdimensioniert 
werden kann, vermag hier zu helfen. 
Sie macht es möglich, dem Prozessor 
in Echtzeit bei seinen Speicherzugrif- 
fen zuzusehen. Dazu wurde jedem 4 
KByte-Block des Speichers jeweils 
eine Leuchtdiode zugeordnet (Ar- 
beitsspeicher: grün; Betriebssystem, 
/O-Bereich: rot; Basic: gelb). Diese 
Leuchtdiode leuchtet bei einem Zu- 
griff auf eine Speicherstelle in dem je- 
weiligen Block kurz auf. Dazu bedarf 
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Steckerplatine: Ätzplan Oberseite, .. . 


es keiner Veränderung des Compu- 
ters: die Schaltung wird mit Hilfe einer 
Steckerplatine am Expansionsport an- 
geschlossen. Die Baukosten liegen mit 
rund 25 Mark im Rahmen des Er- 
schwinglichen. 

Zur Schaltung: Das Herzstück der 
Schaltung ist der 4-Bit-Decoder/De- 
multiplexer 74 LS 154. Dieses IC deco- 
diert die in den oberen vier Adreßbits 
enthaltene Information über den an- 
gewählten Block des Speichers. Die 
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geschaut 


Ausgänge steuern über Treiber des 
Typs 74 LS 04 die Anzeigedioden. 
Während der Taktlücken, in denen 
der Prozessor den Bus freigibt, wird 
die Adreßinformation in einem 4-Bit-D- 
Latch des Typs 74 LS 75 zwischenge- 
speichert. Das erhöht die Leuchtkraft 
der Anzeige und schützt den Rechner 
vor Schäden bei Kurzschlüssen oder 
Schaltfehlern auf der Hauptplatine. 

Achtung: Steckerplatine niemals bei 
angeschaltetem Computer abziehen 
oder aufstecken! Ein Verkanten der 
Platine im Port kann zur Zerstörung 


Par! 


BD! 


UNTEN 


. .. Unterseite (1:1)... 


des Rechners führen! 

Nachbau: Da die Steckerplatine dop- 
pelseitig ausgeführt ist, können 
Schwierigkeiten bei der Herstellung 
auftreten. Ungeübte wenden sich am 
besten an einen Platinenservice. 

Bei der Bestückung geht man in der 
gewohnten Reihenfolge vor: zuerst 
die Brücken, dann die Widerstände, 
Kondensatoren, Sockel, LEDs, Kabel 
und zuletzt die ICs. Das IC auf der Pla- 
tine sollte direkt eingelötet werden, 


Ein Elektronen- 


mikroskop be- 
sonderer Art: 


Diese Schaltun 
erlaubt einen 


Blick in die Spei- 
cherlandschaft 
des C64. 


da es dann beim Herausziehen der 
Platine einen besseren Halt hat. Das 
Flachbandkabel wird durch Draht- 
brücken gegen Abknicken gesichert. 
Betrieb: Jedem 4-KByte-Block des 
Speichers ist eine Leuchtdiode (LED) 
zugeordnet. Bei jedem Speicherzu- 
griff leuchtet die entsprechende LED 
einige Microsekunden lang auf. 
Durch die hohe Zugriffsrate entsteht 
im Zusammenspiel der sehr kurzen, 
wie auch sehr häufigen Lichtblitze der 
Eindruck einer kontinuierlichen, hel- 
len Anzeige, wobei durchaus mehrere 
LEDs gleichzeitig zu leuchten schei- 
nen. Bei dieser impulsartigen Än- 
steuerung ergibt sich eine direkte 
Proportionalität zwischen Änsprech- 
häufigkeit und Helligkeit der Anzeige: 
Je häufiger ein Speicherbereich ange- 
sprochen wird, desto heller leuchtet 
die entsprechende Diode. 


o.e.oo 
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... und schematische Darstellung. 


Schaltet man nun den Rechner ein, so 
sieht man schon die erste Funktion 
der Schaltung: Anhand des Arbeits- 
speichertests der Reset-Routine, die 
in der Anzeige einem Lauflicht ähnelt, 
läßt sich die Funktion des Betriebssy- 
stems prüfen (besonders für Kernal- 
Umschaltplatinen interessant!). Ähn- 
lich äußern sich auch längere Kopier- 
routinen. Nach Beendigung der Reset- 
Routine leuchten im allgemeinen nur 
die mit E,k,F und O bezeichneten 


Leuchtdioden. Lädt man ein Pro- 
gramm von Datasette, so erlischt die 
O-Diode nach betätigen der Starttaste 
des Rekorders. Sie leuchtet wieder 
auf, sobald eine wie auch immer gear- 
tete Modulation auf dem Band er- 
scheint. Es lassen sich damit also auf 
einfache Weise Programmanfänge 
auf Band finden. 

Hat man Turbo-Tape oder einen Flop- 
py-Speeder in Betrieb, so leuchtet 
beim Laden die C-Diode. Die Länge 
eines Programmes läßt sich feststel- 
len, indem man das Aufleuchten der 
Arbeitsspeicherdioden beobachtet. 
Der Absturz eines Programms zeigt 
sich durch das Aufleuchten der F-Dio- 
den an. 

Die Funktion von längeren Assem- 
blerprogrammen läßt sich durch das 
Ansprechen bestimmter Programm- 
teile und Beobachten des Standortes 
der jeweiligen Routine feststellen. Bei- 
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DI D2 D3 DA DS D6 D7 D8 DY DIO DI1DI2 DIS D14 DI5 DI6 


spiel: Man benötigt die Druckroutine 
eines Textverarbeitungsprogramms. 
Bei Ansprechen der Routine leuchten 
die 6- und die C-Diode auf. Die C-Dio- 
de deutet auf das Ansprechen des IO- 
Bereiches, die 6-Diode auf die Lage 
der Druckroutine hin. 


Das ist natürlich nur ein kleiner Teil 
der Möglichkeiten, die die Schaltung 
bietet. Mit der Dauer der Benutzung 
und der wachsenden Erfahrung des 
Programmierers weiten sich auch die 
Einsatzmöglichkeiten aus. Hier sei be- 
sonders auf die Möglichkeit der Ei- 
genreparatur hingewiesen. Ein sehr 
wichtiger Punkt ist der psychologi- 
sche Effekt der besseren Erfaßbar- 
keit der Arbeitsweise des Rechners. 
Man wird durch die Überwachung 
der Vorgänge im Computer sehr viel 
sicherer und vertrauter im Umgang 
mit seinem Commodore 64. 


Hau 


Info und Bezug der Fertigplatine: 
CHS-Kierey 

H.-Ehlers-Str. 73 

2940 Wilhelmshaven 

Tel.: 0 44 21/8 46 45 


Die schematische Darstellung der 


atine. 


Das Platinenlayout 
liegt im Maßstab 1:1 
vor. 


So wird die Platine bestückt. u 
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Bauanleitung 


C64 als 


Videotextdecoder 


Videotext-Fans aufgepaßt: Zukünftig lassen sich 
VT-Bilder auf Diskette speichern. Endlich kann 
Jeder Wetter vorhersagen und Nachrichten sam- 
meln. Der C64 wird zur Info-Datenbank. 
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Bild 1: Ansicht der bestückten Platine von oben. 


Videotext (VT) ist eine von den Fern- 
sehanstalten ausgestrahlte Zusatzin- 
formation zum normalen Fernsehbild. 
Die Signale sind in sechs Zeilen der 
Austastlücke des Fernsehbildes un- 
tergebracht. Zur Entschlüsselung der 
digitalen Informationen benötigt man 
einen Videotext-Decoder, der in mo- 
dernen Fernsehgeräten bereits ein- 
gebaut ist. Videotext besteht aus einer 
Vielzahl von Informationstafeln zu un- 
terschiedlichen Themengebieten: 
Nachrichten, Fernseh- und Hörfunk- 
programme, Küchenrezepte, Lotto- 
zahlen, Sportmeldungen, Wettervor- 
hersage etc. Oft befinden sich darun- 
ter Tafeln, für die besonderes Inter- 
esse besteht. Beispielsweise Zusatzin- 
formationen zum Fernsehprogramm 
oder die wöchentliche Hitparade. Die 
Tafeln müssen idealerweise vom De- 
coder in einen Computer übertragen 
werden. Dort können die Bilder zur 
Archivierung auf Diskette gespeichert 
und sogar auf einem Drucker zu Pa- 
pier gebracht werden. Die hier vorge- 
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stellte Schaltung, in Verbindung mit 
dem C64, macht's möglich bis zu zehn 
VT-Seiten in den Speicher des C64 
einzulesen und zu bearbeiten. 
Funktion der Schaltung: 

Kernstück der Schaltung ist der 24po- 
lige 2K x 8Bit RAM-Baustein 6116 (Pin- 
belegung siehe Bild 9). Nur die untere 
Hälfte des ICs wird verwendet, AlO 
liegt auf Low. Im Normalbetrieb (Pin 
PB7 des Userports liegt auf Low), ist 
der 6116 ständig mit seinen Daten- 
und Adreßleitungen über die Bustrei- 
ber 74LS244 (Pinbelegung siehe Bild 
9) mit dem RAM im VT-Decoder ver- 
bunden. Da sich darin die aktuelle Bild- 
information des Decoders befindet, 
müssen die Informationen in das RAM 
der Schaltung übertragen werden. 
Erst dann läßt sich ein Bild mit dem 
C64 modifizieren und auf Diskette ab- 
speichern. 

Um die Daten in den C64 zu transferie- 
ren, wird Pin PB7 auf High gelegt. Die 
Daten- und Adreßleitungen des VT- 
RAMs werden abgeblockt, die Ein- 


gänge WE, CE, und OE des 6116 auf 
einen festen Pegel gelegt, der Daten- 
bus zum Userport und der Zähler 
CD4040 freigeschaltet. Durch die von 
Pin PA2 abgegebenen Impulse zählt 
der CD4040 von 0 bis 1023. Gleichzei- 
tig wird über die Pins PBO bis PB6 das 
jeweilige Datenbyte in den Port einge- 
lesen. Von Videotext werden zur Co- 
dierung der Zeichen nur 7 Bit verwen- 
det. Durch verschiedene Steuercodes 
ist es möglich, trotzdem 224 Zeichen in 
7 Farben darzustellen. Die Datenlei- 
tungen D1 bis D7 vom VT-RAM sind 
mit DO bis D6 des RAMs verbunden. 


Bestückung der C-64- 
Videotext-System-LP: 


IC1l - 6116 

IC2 — Cd4040 

IC3 - 7415244 

IC4 — 7415244 

IC5 — 7415244 

IC6 - 7415244 

IC7 - 7415244 
8) IC8 - 741502 

IC9 - 74LS00 
0 Kondensator 100nF 
D Kondensator 100pF 
® Kondensator lOuF (Tantal) 


Auch die Adreßleitungen vom VT- 
RAM sind nicht 1:1 mit dem 6116 ver- 
bunden (siehe Bild 8a), da die Organi- 
sation im VT-RAM anders ist. Durch 
diese „Verkreuzungen“ bleibt der 
Softwareaufwand zur vollständigen 
Richtigstellung der Seite relativ klein. 
Über je ein Flachbandkabel werden 
der VT-Decoder und der Userport 
des C64 mit der Schaltung verbun- 
den. Der Anschluß am VT-Decoder 
wird am Beispiel des Sony-VT-Deco- 
ders OPK-203B beschrieben. Er kann 
in den Fernsehgeräten der Sony-Serie 
KV bis 1986 eingebaut werden. 

Es ist auch möglich, die Schaltung an 
einen VT-Decoder eines anderen 
Herstellers anzuschließen. Schließlich 
verfügen alle über ein RAM zur Sei- 
tenspeicherung und nur dieses wird 
durch die Schaltung angezapft. Meist 
wird der 6116 verwendet, auf den sich 
das Schaltbild (Bild 8) bezieht. In an- 
deren Geräten können zwei 2114 (18- 
polige 1K x 4 Bit CMOS-RAM, Pinbele- 
gung siehe Bild 9) als Seitenspeicher 
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Verwendung finden. Dann werden 
die zehn Adreßleitungen an einen der 
beiden 2114 ICs angeschlossen. 

Die Datenleitungen D] bis D7 werden, 
beginnend am 2114 dessen Pin 14 un- 
beschaltet ist, in der Reihenfolge Pin 
13, 12, 11 für D1 bis D3 und am zweiten 
an Pin 14,13,12,11 für D4 bis D7 ange- 
bracht. CE kommt an Pin 8, WE an 10, 
GND an 9und +5 Volt an Pin 18 eines 
beliebigen 2114. 

In neueren Fernsehgeräten mit einem 
Mehrfach-Seitenspeicher im VT-De- 
coder ist ein 6264 (28poliger 8KB x 8 
Bit CMOS-RAM, Pinbelegung siehe 
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bracht werden. Zeitaufwendig ist die 
Verdrahtung der einzelnen Bauteile. 
Dabei hat sich dünner, isolierter Draht 
bewährt. Beim Löten schmilzt die Iso- 
lierung ohne sie zuvor mit einer Zange 
entfernen zu müssen. Da es bei den 
vielen Verbindungen am 74LS244 zu 
Verwirrungen kommen kann, hier 
noch einmal die logischen Verbindun- 
gen der Daten- und Adreßleitungen: 
Die Datenleitungen D1 bis D7 vom VT- 
Decoder-RAM werden mit DO bis D6 
an ICl und Pin C bis K am Userport 
(jeweils über einen 74LS244) verbun- 
den. Die Zählerausgänge Q0 bis 09 
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Bild 2: Unteransicht der bestückten und verdrahteten Platine. 


Bild 19) zu finden. Er wird genau wie 
der 6116 adaptiert, AlO bis Al2 blei- 
ben unbeschaltet. Das Netzteil für die 
Schaltung entfällt, da die Stromversor- 
gung vom VT-Decoder entnommen 
wird. 

Beim Löten am RAM des VT-Deco- 
ders ist unbedingt darauf zu achten, 
daß der Netzstecker des Fernsehge- 
rätes gezogen ist. 

Aufbau der Schaltung: 

Die Bauteile lassen sich am einfach- 
sten auf einer kleinen Lochrasterplati- 
ne verdrahten. Sie sollte mindestens 
eine Größe von 9 cm x 4,5 cm haben. 
Die Platine wird, wie Bild 3 zeigt, in 
der Nähe des VT-Decoders ange- 
schraubt. Beim Bestücken werden zu- 
nächst die IC-Sockel — bitte unbe- 
dingt verwenden — günstig angeord- 
net. Bild | zeigt einen Vorschlag. Da- 
nach werden die Kondensatoren ein- 
gesetzt. Der 100nF-Kondensator muß 
möglichst nah am RAM-Baustein (IC 1) 
und der 10 aF (Tantal) in der Nähe des 
Einspeispunktes der Spannung ange- 
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von IC2 sind mit AO bis A9an ICl und 
über die Verkreuzungen (Bild 8a) mit 
AO bis A9 am VT-RAM zu verbinden. 
Aus den Sockelbildern Bild 9 wird die 
Pinzuordnung an dem (den) VT-RAM- 
Baustein(en) deutlich. Masse wird von 
der Leiterplatte mit GND des C64 und 
GND des VT-Decoders verbunden. 
Die +5 Volt des VT-Decoders liegen 
nur an der Leiterplatte an. Der An- 
schluß an das RAM des VT-Decoders 
kann folgendermaßen vorgenommen 
werden: Ein IC-Sockel wird von oben 
am VT-RAM angelötet. In diesen wird 
dann ein Quetschverbinder, in den 
das Flachbandkabel eingepreßt ist, 
eingesteckt. Anstatt eines Quetsch- 
verbinders kann auch ein IC-Sockel 
verwendet werden, in den das (21poli- 
ge) Flachbandkabel eingelötet wird. 
Dieses wird mit dem anderen Ende an 
die entsprechenden Pins an der Un- 
terseite der Platine gelötet. Ein weite- 
res (lOpoliges) Flachbandkabel wird 
von den entsprechenden Pins aus 
dem Fernsehgerät heraus an einem 


Userportstecker angebracht. Beim 
Anschluß am Userport ist darauf zu 
achten, daß der Stecker richtig herum 
eingesteckt wird! 

Software: 

Das Programm (Listing 1) ist zu 100 
Prozent in Maschinensprache ge- 
schrieben und ist nach dem Laden mit 
RUN zu starten. Beim ersten Start wird 
der 10-Seiten-Speicher _initialisiert 
(nicht mehr bei einem Neustart) und 
das Hauptmenü erscheint: 

1. VT-Seite einlesen 

Nach Drücken der Taste wird der VT- 
RAM abgeblockt. Die Frage „Welche 


Unteransicht, verdrahtet 
(mit Flachbandkabeln) 


Verdrahtung auf der Platine: 
violett = GND 


rot = +5 Volt 


gelb = restliche Leitungen 
2 zum Videotext-Decoder 


® zum Userport 


RAM-Seite?" wird mit einem Tasten- 
druck (0 bis 9) beantwortet und die zu- 
gehörigen Daten werden blitzschnell 
in den C64 transferiert. 

2. Bildschirmausgabe 

Die entsprechende Seite wird auf 
dem Bildschirm angezeigt. Die Bilder 
4 bis 7 zeigen einige Beispiele. Mit 
den Cursor-Tasten „rechts“ und 
„lnks" können die zehn RAM-Seiten 
durchgeblättert werden. Die Taste 
„R" simuliert die Antworttaste, „M“ 
schaltet den Mulicolormodus aus und 
ein. „Q" bereinigt im Multicolormodus 
die mit verdeckten Zeichen beschrie- 
bene Zeile. 

3. Editieren 

Die entsprechende Seite wird auf 
dem Bildschirm ausgegeben und 
zusätzlich erscheinen verschiedene, 
orangefarbene Steuerzeichen und 
der Cursor. Die Steuerzeichen bele- 
gen, im Gegensatz zum C64, immer 
den Platz eines Zeichens auf dem Bild- 
schirm. So können normalerweise nie 


zwei nebeneinander liegende Zei- $ 
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Vorsicht 
Lebensgefahr! 


In Fernsehgeräten treten sehr hohe 
Spannungen mit mehreren zehntau- 
send Volt auf. Deshalb ist die hier vor- 
gestellte Schaltung nur von qualifizier- 
ten Technikern im Fernsehgerät ein- 
zubauen 
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Bild 4 bis 7: Dem Original täuschend ähnlich, Videotext-Bilder aus dem C64 
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chen unterschiedliche Farben aufwei- 
sen. 

Eine Ausnahme gibt es bei den Gra- 
fikzeichen (siehe CTRL/H). Die 
Steuerzeichen sind mit der CTRL- 
Taste zugänglich und haben folgende 
Tastaturbelegungen und Bedeutun- 
gen: 

CTRL/2 — Farbe weiß 

CTRL/3 — Farbe rot 

CTRL/4 — Farbe cyan 

CTRL/5 — Farbe violett 

CTRL/6 — Farbe grün 

CTRL/7 — Farbe blau 

CTRL/8 — Farbe gelb 

Es sind, wie bei Videotext, nur diese 
sieben Farben zugänglich. 

CTRL/B — die Farbinformation steht 
in Spalte 0. In Spalte 1 muß CTRL/B 
folgen, um die entsprechende Zeile 
mit Hintergrundfarbe (Multicolor) zu 
unterlegen. 

CTRL/R — macht die folgenden 
Zeichen nur noch für die „Quiztaste“ 
in der zuletzt gewählten Farbe sicht- 
bar. Im Edit-Modus werden sie dun- 
kelgrau dargestellt. 

CTRL/G — stellt die geteilten statt der 
ausgefüllten Grafikzeichen dar. 
CTRL/Z — zeigt wieder die ausgefüll- 
ten Grafikzeichen. 

CTRL/H — Folgt nach diesem Code 
ein anderer Farbcode, so wird das zu- 
letzt ausgegebene Grafikzeichen in 
der neuen Farbe an die Bildschirmpo- 
sition des Farbcodes gesetzt. Im Edit- 
Modus wird das Steuerzeichen des 
Farbcodes dargestellt. 

CTRL/F — Macht den CTRL/H-Befehl 
rückgängig. Anmerkung: Am Zeilen- 
anfang werden von Videotext grund- 
sätzlich, wie auch in diesem Pro- 
gramm, die folgenden Codes gesen- 
det: CTRL/2, CTRL/Z und CTRL/F. 
Ferner kann im Editor als Steuer- 
zeichen ein „X" vorkommen. Es steht 
für die Codes wie Umfelder, Blinken, 
vertikal gedehnte Schrift und künftige 
VT-Erweiterungen, die hier nicht be- 
rücksichtigt sind. Das „X"-Steuer- 
zeichen ist nicht über die Tastatur zu- 
gänglich. 

Die Editiertasten CRSR, INST/DEL, 
HOME und RETURN haben ihre ge- 
wohnte Funktion. Alle Groß- und 
Kleinbuchstaben sowie Sonderzei- 
chen können direkt über die Tastatur 
geändert werden. Die neuen VT-Gra- 
fikzeichen sind nicht direkt zugäng- 
lich, sie werden über die Taste „F5“ 
angewählt. Nach Drücken dieser Ta- 
ste erscheint statt des Cursors ein 
Grafikzeichen. Mit den Cursortasten 
„rechts“ und „links“ und mit Bestäti- 
gung durch RETURN wird das ge- 
wünschte Zeichen angewählt. Bei 
nochmaliger Betätigung von „F5" er- 


scheint das zuletzt gewählte Zeichen 
erneut. Die Taste „F7" führt zurück ins 
Hauptmenü. 

4. Seite im RAM transferieren 

Eine Seite wird in eine andere kopiert. 
5. Druckerausgabe 

Vor dem Ausdruck, der mit der 
SPACE-Taste gestartet wird, können 
mit der Taste „P" die voreingestellten 
Parameter geändert werden. Der 
Ausdruck einer RAM-Seite kann auf 
einem Epson-kompatiblen Drucker 
sowie einem MPS-802/VC 1526 erfol- 
gen. Auto-Linefeed ist für Epson-Druk- 
ker abschaltbar. Bei den verdeckten 
Zeichen, also nur mit der „Quiztaste" 
sichtbaren, ist der Druckmodus eben- 
falls wählbar. Bei Bedarf kann auf ei- 
nem Epson-Drucker eine VT-Seite 
auch in doppelter Größe ausgedruckt 
werden. Weiterhin läßt sich mit dem 
Tabulator die horizontale Position auf 
dem Papier festlegen. Im Epson-Mo- 
dus werden die Farben weiß auf gelb, 
in VT-Grafiken als Graumuster ge- 
druckt! 

6. RAM-Seiten-Übersicht 

Die Kopfzeilen der zehn Seiten er- 
scheinen auf dem Bildschirm. 

7. Diskmenü 

7.1. Seite(n) von Disk laden 

Nach Eingabe des Filenamens wird 
die Seite von der Disk in die angege- 


Speicherbelegungsplan: 


bene RAM-Seite geladen und auf dem 
Bildschirm dargestellt. 

7.2. Seite auf Disk speichern 

Nach Eingabe des Filenamens wird 
die angegebene RAM-Seite in vier 
Blocks auf Diskette gespeichert. 

7.3. Mehrere Seiten auf Disk spei- 
chern 

Wie 7.2., jedoch wird die erste und 
letzte zu speichernde Seite eingege- 
ben. 

7.4. Disk-Command 

Senden von Diskbefehlen, zum Bei- 
spiel „S:NAME“. 

7.5. Directory 

Die Ausgabe kann durch Drücken 
der SPACE-Taste abgebrochen wer- 
den. Bei nochmaligem Tastendruck 
erscheint wieder das Diskmenü. 

7.6. RAM-Seiten-Übersicht 

Die Kopfzeilen der zehn Seiten er- 
scheinen auf dem Bildschirm. 

7.7. Hauptmenü 

Sprung vom Diskmenü zurück ins 
Hauptmenü. 

8. Ende 

„Fl" zeigt oben rechts die aktuelle 
oder zuletzt benutzte RAM-Seite in ei- 
nem Seitensymbol mit der entspre- 
chenden Ziffer an. 

„! -Korrekturtaste für falsche Einga- 
ben, das Hauptmenü erscheint wie- 
der. 


(Manfred Böhme!) EEE 
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Bild 8: Schaltplan des Videotext-Systems für den C64. 


Bild&b:SpannungsversorgungderICs. Bild 8c: Zusatzschaltplan für Sony-Fernsehgeräte mit 4fach-Seitenspeicher. 
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SN7400 (, N) 
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SN74LS00 (, N) SN74LS02 (, N) 
SN74500 (, N) SN74502 (J, N) SN7415244 (J, N) 


Hinweis für MPS 
12STAGE COUNTER 802-Besitzer 


Nicht jeder Computer-Besitzer ver- 
fügt über einen Eprom-Brenner. 
Deshalb hat sich der Entwickler des 
Videotext-Systems bereit erklärt, ein 
fertig gebranntes 2764 Eprom ge- 
gen 30 Mark per Nachnahme Inter- 
essierten zur Verfügung zu stellen. 
Manfred Böhmel 

Am Töbele 2 

7923 Königsbronn 


Bild 9: Anschlußbelegungen der verwendeten ICs. 
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So tippt man die 


Programme ab: 

„Videotext" (Listing 1) und die Be- 
triebssystemmodifikation für den MPS 
802 (Listing 2) sind als kombinierte 
Hexdump-Basiclader abgedruckt. 
Wie man mit dieser Art von Listing 
umgeht, steht auf Seite 83. Wird 
„Videotext“ als Basiclader eingege- 
ben, so muß der Lader vor dem Start 
mit RUN abgespeichert werden. Nach 
dem Einpoken der Daten kann das 
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fertige Maschinenprogramm mit 
POKE43,1:POKE44,8 
POKE45,175:POKE46,31 
SAVE"NAME",8 

auf Diskette abgespeichert werden. 
Wird die Betriebssystemmodifikation 
als Basiclader eingegeben, so muß 
vorher das Basic-Speicherende mit 
POKES56,131:CLR 

herabgesetzt werden. Nach dem Start 
mit RUN werden die Dateien in den 
Speicher gepoket. Das fertige Maschi- 
nenprogramm kann mit 


POKE43,0:POKE44,132 
POKE45,0:POKE46, 138 
SAVE"NAME",8 

auf Diskette abgespeichert werden. 
Werden „Videotext“ und die Betriebs- 
systemmodifikation als Hexdumps 
eingegeben, so muß der Checker be- 
nutzt werden. Als Startadressen sind 
0801 bei „ Videotext" und 8400 bei der 
Betriebssystemmodifikation anzuge- 
ben. Der Speicherbelegungsplan zu 
„Videotext“ ist auf Seite 43 abge- 
druckt. 


65,A0,19,20,1E,AB,A9, 00, 
20, E4, FF, FO, FB,C9, 39,90, 
@4,C9,3A,90, 25, 68,68,4C, 
C4,13,20,D2,FF,29,2F,85, 
F7,AA,60,20,67,14,20,89, 
2B, 20, FE, OB, A8,A9, 00,85, 
AD, AA, 20,D5,FF,4C, 85,15, 
20,67,14,20,80,0B,A9, 20, 
20, FE,2B,85,C2,18,69,93, 
85, AF,A9,C9,85,AE,A9, 90, 
85,C1,20,ED,F5,4C,1C,14, 
20,67,14,20,692,0C,85,C2, 
AQ,A1,AD,19,20,84,0B,BD, 
96,1C,18,69,03,85, AF, 38, 
E5,C2,B0,93,4C,1C,14,29, 
FE, ©B,4C, CB, 2B, 20, 2C,0C, 
AO, 00,20, BA,FF,A6,F7,BD, 
\ 96,1C, 690,49, 20,8D, 15,D®, 
A9,55,A0,19,20,1E,AB,A2, 
00, 86,9D, 20, CF,FF,9D,3C, 
03,E8,C9,9D,D@,F5,CA, 86, 
B7,A9,3C,85, BB,A9, 23,85, 
BC, A9, 08, AA, 60, 20,60, 2C, 
85, FA,A9,8E,AQ,19,20,84, 
@B, BD, 96, 1C,85, FC, A, 20, 
84,F9,84,FB,A2,04,B1,F9, 
91, FB,C8,D9,F9,E6,FA,E6, 
FC, CA,D®,F2,4C,C4,13,A9, 
7D,A®,19,20,84,0B,BD,96, 
1C,60,20,8E,14,29,80,08, 
A9,22,8D,15,D2,A9,BB,AQ, 
1A,20, 1E, AB, 20, E4,FF,C9, 
20,F0,2B,C9,5E,FO,2F,C9, 
59,D9,F1,4C,3F,12,AD,90, 
23, F0,06,4C,3C,10,4C,C4, 
13,20, 1B,16,A6,F7,BD,96, 
1C,85,FA,18,69,03,85,24, 
A9, 06, A8,A2,04,20, BA,FF, 
A9, 20,20, BD, FF,20,C0,FF, 
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2D,A2,00,86, AB, 20, B3,0D, 
D9,25,A9,29,4C,79,2D,A5, 
25,C9,A0,90,F5,85,25,A6, 
AB, F90,02,A9,290,C9,C0,99, 
17,A6,27,E0,01,F0,2B,48, 
A9,11,20,D2,FF,68,A2,21, 
86,27,38,E9,49,4C,88,02D, 
A6,27,F0,2B,48,A9, 91,29, 
D2,FF,68,A2,900,86,27,22, 
D2,FF,E6,26,A5,26,C9,28, 
D9,190,A9,00,85,26,85,22, 
85, AB,A9,0D,20,D2,FF,29, 
A5,0D,C8,60,A9,20, AE,94, 
23, F0,26,29,D2,FF,CA,D®, 
FA,62,C9,1F,D0,904,A2,00, 
86,22,C9,1E,D0,24,A2,01, 
86, 22,A46,22,60,A9,21,85, 


AD, 20,80, 0B,BD,96,1C,85, 
FC,20,1B,16,A9,C4,85,FE, 
AD, 00,84, FD,84, FB,84, AA, 
84,2A,A9,A1,85,29,A5, AA, 
C9,28, D®,07,A9, 00,85, AA, 
4C,FC,2D,C9,FF,D9,24, 49, 
27,85, AA,A5, 2A, F0,23,4C, 
FA,OF,B1,FD,48,A9,5F, 91, 
FD, 68, A2,28,CA, DO, FD, 91, 
FD, 84,26,20,E4,FF,A4, 26, 
C9,1D,D®,16,CQ,BF,D®,06, 
A5,FE,C9,C7,F®,C9,C8,D2, 
04, E6, FC,E6, FE,E6,AA,4C, 
E7,2D,C9,9D,D9,14,C2,99, 
D®,@A,A5, FE,C9,C4,F®,A6, 
C6,FE,C6,FC,C6,AA,88,4C, 
E7,®D,C9,91,D2,18,C®,27, 
B2,06, A5, FE,C9,C4,F@,8E, 
98,38, E9,28,B9,24,C6,FE, 
C6,FC,A8,4C,E7,9D,C9, 11, 
D2,18,C2,98,90,06,A5,FE, 
C9,C7,F®,0B,98,18,69,28, 
92,24,E6,FE,E6, FC, A8,4C, 
E7,0D,C9,88,D9,03,4C,C4, 
13,C9,87,D0,06,A2,21,86, 
2A,A5,29,85,23,85,24,C9, 
EO, 90, 23, 4C,D6,9E,C9,CD, 
90,0F,29,7F,85,23,A5,24, 
29,7F,29,20,85,24,4C,D6, 
@E,C9,AQ,90,2B, A5,23,29, 
7F,09,40,85,23,4C,D6,®E, 
C9, 80, B0,47,C9,492,90,09, 
A5,23,29,3F,85,23,4C,D6, 
BE,C9,20,90,36,48,A9,90, 
85, AB, B1,FB,C9, 20, B0,04, 
A9,21,85, AB, 68, A5, 23,91, 
FD,A5,24,91,FB,A5, AB, FO, 
OA,84,27,20,66,E5,20,1E, 
16,A4,27,A6,2A,D®,09,C8, 
DO,©4,E6,FC,E6,FE,E6, AA, 
4C,E7,0D,C9,13,D®,@A,A6, 
F7,BD,96,1C,85,FC,4C,DS, 
©D,C9,14,D®,3D, A5, AA, FO, 
39,A5,FC,48,A5,FE,48,84, 
26,A9,28,38, E5, AA, AA, Bi, 
FB,20,E0,0F,91,FB,2®,EA, 
OF,20, EA,2F,CA,DO,F9,29, 
EO,OF,A9,20,91,FB,68,85, 
FE, 68,85, FC, 20, 66, E5, 29, 
1E,16,A4,26,88,C6, AA,4C, 
E7,@D,C9,94,D®,3A, A5, AA, 
C9,27,F0,34,84,26, A9, 27, 
38, E5, AA, AA,18,65,26,99, 
23,20, ED,OF,A8,88,B1,FB, 
20, EA,@F,91,FB,29,E®, OF, 
20,E0,2F,CA,D®O,F®,20,EA, 
@F,A9, 20,91, FB, 20,66, 5, 
20, 1E,16,A4,26,4C,E7,OD, 
C9,0D,F®,84,C9,8D,D@,1B, 
C0,98, 90,26, A5,FE,C9,C7, 
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‚DO,FA,86,AA, 
24,A2,01,BD, 


C,E6,FE,68, 
EA,FF,A4,26, 
E6,29,A5,29, 
c9, 60, D9,22, 


A9, AD, 85,29,4C,94,0E,C9, 
9D,D@,15,C6,29,A5,29,C9, 
9F,D®,02,A9,5F,C9,1F,D®, 
@2,A9,FF,85,29,4C,94,0E, 
C9,@D,D®,C5,A9, 90,85, 2A, 
4C, FC, 9E, A9, 00, 85,29, 20, 
1B,16,A6,F7,BD,96,1C,85, 
FA,A0,00,84,24,84,A9, 84, 
AC,84,F9,A5,29,D®,4F,A9, 
Q4, AA, AQ,®4, 20, BA, FF,A9, 
29,20, BD, FF,20,CQ,FF,A2, 
®4,20,C9, FF, A2, 20, BD, AQ, 
1E,20,D2,FF,E8,E9,4,D®, 
F5,20,A5,®D, A9, 20,85,25, 
A2,20,86,28,86,22,86, AB, 
AD, 93,83, F0, @E,BD,A9,1E, 
20,D2,FF,E8, EQ,5,D®,F5, 
4C,A7,10,BD,A4, 1E,20,D2, 
FF,E8,EO, 05, D®,F5,A6,24, 
BD, F0,EC,C5,F9, BO, 02,E6, 
FA,85,F9, AO, 20, A9, 00,85, 
A8,B1,F9,C9,2@, B®,4F,AD, 
92,23,D®,0D,B1,F9,C9,18, 
D®,97,A2,01,86, AB,4C, 98, 
11,A2,20,86,AB,C9, 19, D®, 
23,4C,08,11,29,E8,D9,1®, 
A2,20,86, A9,B1,F9,29, 83, 
C9,23,D2,94,A2,21,86, 49, 
Bl,F9,C9,1A,D9,94,A2,01, 
86,28,C9, 19, D0,04,A2,90, 
86,28,20, B3,0D,D9,25,A9, 
29,4C,OF,11,A5,25,C9,A®, 
99,92,85,25,C9,29,F®,98, 
‚c9, Ad, BO, 04, A2, 00,86, A9, 
A6, AB, F0, 02,A9,20,C9,E®, 
99,09,A6,28, F@,28,29,DF, 
4C,57,11,C9,A0,90,10,A6, 
28, F®, 05, 29, DF,4C, 57,11, 
29,7F,09,49,4C,57,11,C9, 
60, 99,05,29, DF,AC, 57,11, 
C9,40,90,02,29,BF,A2,93, 
06, A8, 18, 0A, 90, ®2, E6, A8, 
CA,D®,F5,85, A7,A5,A8, A6, 
29, F0,03,4C,18,12,18,69, 
C8,85,A8,84,27,A0,20,A6, 
AO, F®,27,B1,A7,29, AA,AE, 
93,23, F®, 03, 20,02,12,29, 
D2,FF,C8,B1,A7,29,55,AE, 
93,03, F0,03,20,02,12,2®, 
D2,FF,C8,C®,28,D®,DC,4C, 
BF,11,78,A2,35,86,21,B1, 
A7,A2,37,86,21,58, AE, 93, 
23,F0,23,20,22,12,20,D2, 
FF,C8,C2, 08, DO, E4, A4,27, 
C8,C0,28,F0,23,4C,B6,19, 
A5,29,D®,1C,A9,0D,20,D2, 
FF,AD,91,03, F0,905,A9, OA, 
20,D2,FF,AD,93,23,F®,98, 
A5,AC,49, 01,85, AC, DO, 08, 
E6,24,A5,24,C9,18,F®,OA, 
A5,29,F0,03,4C,A7,10,4C, 
7A,10,A5,29,D0,25,4C,98, 
@D,A6,AC,F®,05,29,2F,4C, 
11,12,29,F@,4A,4A,4A,4A, 
AA,BD,BD,1E,4C,D2,FF,18, 
69, E0,85, A8,84,27,A0, 20, 
4C,A3,11,A9,20,A2,40,20, 
D2,FF,CA,DQ,FA,22,D2,FF, 
CA,D®,FA,20,CC,FF,A9,08, 
20,C3,FF,4C,1C,14,A9, 90, 
85,27,A9,1A,AQ,1A,20,1E, 
AB, AD, 93,03, F®, 08, 8D, 90, 
23, A9,20,8D, 94,93, A2,2®, 
20,5B,13,A5,27,D0, 03,29, 
78,13,AD, 90, ®3,F®,97,A9, 


E6,AQ®,1A,4C,73,12,A9,FD, 
A2,1A,20,1E,AB,A2,02,20, 
5B,13,A5,27,C9,21,D9,23, 
22,78,13,AD,91,23,F0,96, 
20,6A,13,4C,92,12,20,71, 
13,A2,04,290,5B,13,A5, 27, 
c9,22,0D9,23,20,78,13,AD, 
92,23,F0,06,20,6A,13,4C, 
AE,12,20,71,13,A2,06,20, 
5B,13,A5,27,C9,23,D9,03, 
20,78,13, AD, 93,03, F0,06, 
290,6A,13,4C,CA,12,29,71, 
13,A2,08,29,5B,13,A5,27, 
C9,24,D0,03,20,78,13,AE, 
94,23,A9,20,20,CD,BD,A9, 
20,28,D2,FF,A9,04,8D,86, 
02,28,E4,FF,C9,11,DO, OF, 
20, 7E,13,E6,27,A5,27,C9, 
25,D9,94,A9,00,85,27,C9, 
91,DO,0F,290,7E,13,C6,27, 
A5,27,C9,FF,D0,04,A9,94, 
85,27,C9,1D,D9,29,A6,27, 
EO,04,F0,18,4C,2A,13,C9, 
9D,D0,29,A6,27,E0,24,F®, 
18,BD,90,03,49,81,9D,9®0, 
23,4C,4A,12,AD,94,03,C9, 
27,F®,F6,EE,94,23,4C,4A, 
12,AD, 94,03, F®,EB,CE,94, 
23,4C,4A,12,C9,5E,D®,23, 
4C,C4,13,C9,28,D9,DA,AC, 
8F,®8C, BD, B3, 1E,48,E8,BD, 
BS3,1E,AA,68,A8,18,4C, FD, 
FF,A9,14,AQ,1B,4C, 1E,AB, 
A9,1A,AQ, 1B,4C,1E,AB,A9, 
OA,8D,86,02,60,A9,D8,85, 
FA,AO,020,84,F9,B1,F9,29, 
OF,C9,0A,D2,04,49,04,91, 
F9,C8,D®O,F1,E6,FA,AS,FA, 
C9,DB,D®,E9,60,A9,8E,4C, 
D2,FF,29,9E,13,A5,CB,C9, 
40,D9,F7,A5,CB,C9,40,FQ, 
FA,4C,1C,14,20,9E,13,A5, 
CB,C9,42,D0,F7,A5,CB,C9, 
40, F0,FA,A9,20,85,D4,85, 
AD,20,15,14,A9,51,A®,1B, 
29, 1E,AB,20,7C,15,2@,E4, 
FF,C9,31,D0,93,4C,71,@0A, 
c9,32,D9,03,4C,82,15,C9, 
33,D9,03,4C,C6,2D,C9,34, 
D2,023,4C,36,2C,C9,35,D®, 
23,4C,6B,0C,C9,36,D0,906, 
20,3A,18,4C,B5S,13,C9,37, 
D®,03,4C,1C,14,C9,38,D®, 
C5,4C,21,19,A9,20,AQ,1B, 
4C,1E,AB,29,15,14,A9,EC, 
A®,1B,29,1E,AB,20,7C,15, 
20, EA,FF,C9,31,D9,03,4C, 
A4,0B,C9,32,D9,23,4C,B9, 
2B,C9,33,D®,23,4C,D9,0B, 
C9,34,D9,23,4C,C1,14,C9, 
35,D9,03,4C,B9,18,C9,36, 
D2,06,20,3A,18,4C,A3,13, 
C9,37,D0,23,4C,C4,13,C9, 
38,D9,C5,4C,88,18,A9,01, 
A2,28,AO,0F,20,BA,FF,A9, 
20,20,BD,FF,20,C0,FF,A2, 
21,20,C9,FF,AS,9A,C9, 98, 
28,D9,31,298,CC,FF,A9,01, 
290,C3,FF,28,60,A9,04,A2, 
04,A0,00,20,BA,FF,A9,00, 
20,BD,FF,20,C2,FF,A2,94, 
20,C9,FF,A5S,9A,C9,04,08, 
D@,0A,28,CC, FF,A9, 84,20, 
C3,FF,28,60,A9,B3,AQ,19, 
22,1E,AB,68,68,4C,B5,13, 


1549 
15B1 
15B9 
15C1 
15C9 
15D1 
15D9 
15E1 
15E9 
15F1 
15F9 
1681 
1689 
1611 
1619 
1621 
1629 
1631 
1639 
1641 
1649 
1651 
1659 
1661 
1669 
1671 
1679 
1681 
1689 
1691 
1699 
1641 
1649 
16B1 
16B9 
16c1 
16C9 
16D1 
16D9 
16E1 
16E9 
16F1 
16F9 
1701 
1789 
1711 


4990 
41900 
4119 
4120 
4130 
4140 
4158 
4160 
4179 
4180 
4190 
4200 
4210 
4222 
4230 
4248 
4259 
4268 
4270 
4280 
4290 
4390 
4319 
4320 
4332 
4340 
4358 
4369 
4379 
4389 
4392 
4400 
4410 
4420 
4432 
4440 
4459 
4460 
4470 
4480 
4490 
45008 
4519 
4520 
4530 
4540 
4559 
4568 
4579 
4589 
4599 
4609 
4610 
4622 
4639 
4640 
4659 
4668 
4670 
4682 
4692 
4700 
4710 
4722 
4739 
4748 
4750 
4768 
4770 
4780 
4799 
48098 
4810 
4820 
4839 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


20,67,14,A9,CC,AD,19,29, 
1E,AB, 20,60, A5,A9,C8,C9, 
OD,F®0,20,A9,21,A2,28, AD, 
OF,20,BA,FF,A9,00,20,BD, 
FF,20,C0,FF,A2,21,292,C9, 
FF,A9,00,A0,902,20,1E,AB, 
20,CC,FF,A9,9F,28,D2,FF, 
A9,0D,20,D2,FF,A2,21,20, 
C6,FF,20,CF,FF,28,D2,FF, 
AS5,90,F0,F6,20,CC,FF,AS, 
22,20,C3,FF,A9,01,29,C3, 
FF,4C,A3,13,48,8A,48,AD, 
19,D2,8D, 19,D9,29,901,F9, 
1D,CE,A1,03,10,26,AD,A®, 
23,8D,A1,03,AE,A1,03,BD, 
62,23,8D,21,D2,BD, 78,23, 
8D,12,D9,8A,F0,06,68,AA, 
68,4C,BC,FE,AS,FF,F9,05, 
E6,FF,4C,68,15,A5,CB,C9, 
04,D®8,0C, AD, 15,D9,49, 01, 
8D,15,D9,A9,D2,85,FF,EE, 
27,D®,68,AA,68,4C,31,EA, 
49,00, A2,27,9D,08,E5,CA, 
10, FA,60,A9,7F,8D,06,E5, 
69,20,80,0B,A9,00,85,2A, 
85,24,8D, A®,03,A6,F7,BD, 
96,1C,18,69,93,85,FA,A9, 
FF,85,F9,A2,17,BD,F®, EC, 
Cc5,F9,99,02,C6,FA,85,F9, 
A®,29,B1,F9,C9, 1D, DO, 07, 
A9,27,85,23,4C,C9,15,29, 
F7,C9,18,B®,50,29,907,85, 
23,C8,B1,F9,C9,1D,DO,45, 
C8,B1,F9,C9,1D,F@,3E,A5, 
B3,F0,26,B1,F9,C9,18,F®, 
34,C8,C®,28,D®,EB,A5,23, 
c5,24,F0,20,A0,20,A4,23, 
84,24,B9,F3,1D,A4,B2,F®, 
13,EE,AO,03,AC,A®,023,99, 
60,03, 8A, DOA,OA, OA, 18,69, 


3A,99,78,903,CA,10,96,29, - 


1B,16,4C,B5,17,A4,24,F®, 
F3,A9,00,85,23,85,24,4C, 
EE,15,290,44,E5,A9,09,85, 
C7,29,71,15,A6,F7,A9,09, 
85,F8,A9,63,85,F9,A9,CS, 
85, FA,AQ,00,BD, AD, 1C,AA, 
BD,E9,1C,91,F9,C8,C8,C8, 
E8,C6,F8,D®,F3,A6,F7,BD, 
96,1C,85,FA,18,69,23,85, 
24,A0,00,84,F9,84,22,202, 
AB,16,D®,FB,E6,FA,AS,FA, 
C5,24,D0,F3,29,AB,16,C9, 
C2,D®,F9,A9,00,8D,86,22, 
A9,12,85,C7,A9,BF,4C,D2, 
FF,A5,D3,F0,27,C9,28,F0, 
23,A9,20,60,A9,1D,69,C8, 
A9,21,85,2A,4C,94,16,A9, 
00,85,2A,88,A9,00,8D,86, 
@©2,A9,12,85,C7,A9,BF,20, 
D2,FF,A9,9D,20,D2,FF,4C, 
C9,16,A5,D3,F9,84,C9, 28, 
D®,27,A5,AD,D®,12,B1,F9, 
Cc9,1D,F®,CB,C8,B1,F9,C9, 
1D,F9,C5,A5,2A,D9,C8,88, 


A9,D2F,8D,86,02,A9, 20,85, 
25,49,099,85,22,85,28,85, 
C7,B1,F9,C9,20,D0,26,290, 
7A,16,4C,5B,17,B®,790,C9, 
1F,DO,04,A2,00,86,22,C9, 
1E,D9,97,A2,01,86,22,4C, 
64,17,C9,1D,F9,10,C9,1A, 
D2,04,A2,01,86,28,C9,19, 
D9,24,A2,00,86,28,A6,22, 
F2,23,4C,64,17,20,7A,16, 


WUROBEENFITER WORDEN: 


1719 
1721 
1729 
1731 
1739 
1741 
1749 
1751 
1759 
1761 
1769 
1771 
1779 
1781 
1789 
1791 
1799 
17A1 
17A9 
17B1 
17B9 
17C1 
17C9 
17D1 
17D9 
17E1 
17E9 
17F1 
17F9 
18921 
1829 
1811 
1819 
1821 
1829 
1831 
1839 
1841 
1849 
1851 
1859 
1861 
1869 
1871 
1879 
1881 
1889 
1891 
1899 
18A1 
18A9 
18B1 
18B9 
18C1 
18C9 
18D1 
18D9 
18E1 
18E9 
18F1 
18F9 
1991 
1999 
1911 
1919 
1921 
1929 
1931 
1939 
1941 
1949 
1951 
1959 
1961 
1969 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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DATA 
DATA 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


A6, AD, DO, 23,20,16,E7,B1, 
F9,A6,AD,F0,29,AA,A9, 01, 
85,C7,AD,86,02,48,A9,98, 
8D,86,22,8A,29,20,290,16, 
E7,A9,20,85,D4,68,8D,86, 
02,8A,C9,18,D9,08,A9,0B, 
8D,86,22,4C,5B,17,29,2F, 
AA,BD,C3,1D,4C,5B, 17,29, 
78,17,2@,D2,FF,A9, 99,85, 
D4,C8,60,A5,25,C9,AD,99, 
AC, A6, AD, D®,B2,A2,29,86, 
C7,28,7E,17,4C,1D,17,A2, 
22,86,C7,85,25,C9,E®,B2, 
25,C9,A0,B2,27,60,29,BF, 
A2,12,86,C7,A6,28,F0,0C, 
A6,C7,D0,09,29,1F,29,492, 
A2,12,86,C7,60,29,3F,99, 
40,60, A5,B2,49,91,85,B2, 
4C,85,15,A5,B3,49,01,85, 
B3,4C,85,15,29,E4,FF,C9, 
52,F9,2B,C9,1D,F9,13,C9, 
9D,F®,1A,C9,4D,F®,DB,C9, 
51,F9,E9,C9,20,D9,E5,4C, 
26,18,A5,F7,C9,809,F9,DC, 
E6,F7,4C,85,15,A5,F7,F9Q, 
D3,C6,F7,4C,85,15,A9,C4, 
85, FA,A9,D8,85, FC, AO, 90, 
84,F9,84,FB,84,25,Bi1,FB, 
29,0F,C9,292,D0,0D,B1,F9, 
C9,FF,F9,29,A5,25,91,FB, 
4C,8E,18,85,25,C8,D9,E6, 
E6,FA,E6,FC,AS,FC,C9,DC, 
D2, DC, 29, EA, FF,C9,52,F@, 
OF,C9,20,D9,F5,20,7C,15, 
A9,20,8D,A®,03,4C,C4,13, 
20,66, E5S,20,1E,16,4C,B5, 
17,A9,DE,A®,19,20,1E,AB, 
A2,20,86,F9,86,FC,A9,9E, 
22,D2,FF,A5,FC,29,39,29, 
D2,FF,A9,15,A®,1A,2@,1E, 
AB, AO, 08, A6,FC,BD, 96, 1C, 
85, FA,B1,F9,C9,20,19,929, 
AA,BD,C3,1D,290,D2,FF,A9, 
292,20,D2,FF,C8,C2,28,D®, 
E9, A9,@D, 20, D2,FF,E6,FC, 
AS5,FC,C9,9A,D9,C2,69,29, 
67,14,20,80,0B,20,0C,0C, 
AD,01,84,29,20,BA,FF,29, 
C2,FF,A2,08,20,C9,FF,A9, 
20,8D,93,03,290,D2,FF,A9, 
20,20,D2,FF,4C,49,10,290, 
67,14,20,44,E5,A9,00,8D, 
15,D9,A9,01,A2,19, AO, 1A, 
20,BD,FF,A9,01,A2,908,AO, 
00,20, BA,FF,20,C®,FF,A2, 
21,29,C6,FF,A®,05,84,22, 
29,CF,FF,AA,A4,22,88,D®, 
F5,28,CF,FF,A4,990,D®,2D, 
20, CD,BD,A9, 29,20, D2,FF, 
28,CF,FF,85,22,C9,09,F@, 
2C, A5,22,A2,20,86,C7,29, 
D2,FF,4C,F1,18,A9,0D,292, 
D2,FF,A5,CB,C9,40,D9,95, 
A®,03,4C,D7,18,298,CC,FF, 
A9,21,20,C3,FF,4C,A3,13, 
78,A9,09,8D,15,D9,8D,1A, 
D2,A9,81,8D,0D, DC, 28,15, 
FD,A9,31,AQ,EA,8D, 14,903, 
8C,15,23,A9,15,8D,18,D®, 
AD,28,DD,89,23,8D,29,DD, 
58,A9,24,8D,88,92,290,44, 
ES,4C,7B,E3,2D,11,11,1E, 
C6,49,4C,45,4E,41,4D,45, 
3A,29,9C,00,93,1E,D7,45, 
4C,43,48,45,20,D2,C1,CD, 


August/87 um 49 


>» 


2D,D3,45,49,54,45,3A,290, 
9C,DF,9D, 20,93, 1E,D6,4AF, 
4E,20,D3,45,49,54,45,3A, 
20,9C,DF,9D,292,0D,i1,1E, 
4E,41,43,48,20,D3,45,49, 
54,45,3A,29,9C,DF,9D,20, 
@D,OD, 1E,42,49,53,29,D3, 
45,49,54,45,3A,29,9C,DF, 
9D,20,0D,11,1C,3F,C4,C5, 
D6,C9,C3,C5,20,D2,CF,D7, 
C5,D2,20,28,C5,D2,D2,CF, 
D2,2D,20,11,1E,C4,49,53, 
4B,2D,43,4F,4D,4D,41,4E, 
44,3A,290,9C,20,93,81,DD, 
42,45,52,53,49,43,48,54, 
20,44,45,52,20,D2,C1,CD, 
2D,D3,45,49,54,45,4E, DD, 
AS,A3,A3,A3,AS,AS,AS,AS, 
A3,A3,A3,A3,A3,A3,AS, AS, 
A3,A3,A3,A3,AS3,A3,AS,A3, 
11,11,29D,299,3A,20,9B,292, 
24,93,81,D9,52,49,4E,54, 
45,52,2D,CF,50,54,49,4F, 
4E,53,0D,A3,A3,A3,AS,AS, 
A3,A3,A3,A3,A3,A3,A3,AS, 
A3,A3,@2D,9F,11,11,11,D®, 
52,49,4E,54,45,52,290,D4, 
59,59,45,3A,2D,11,C1,55, 
54,4F,2D,CC,C6,3A,2D, 11, 
D6,45,52,44,45,43,4B,54, 
45,20,DA,45,49,43,48,45, 
4E,3A,0D,11,C4,4F,59,59, 
45,4C,54,45,20,C7,52,5C, 
SE,45,3A,9D,11,D4,41,42, 
55,4C0,41,54,4F,52,3A,2D, 
11,11,11,11,9F,28,C1,55, 
53,57,41,48,4C,20,4D,49, 
54,20,9E,C3,D2,D3,D2,9F, 
54,41,53,54,45,4E,20,29, 
9E,D3,D9,C1,C3,C5,9F,290, 
3D,20,D3,54,41,52,54,29, 
0D,20,0D,11,9E,D3,D9,C1, 
c3,C5,290,9F,3D,29,D3,54, 

‚29, 22,9E,D®, 

D®,52,49,4E, 


CB,4F,4D,59,41,54,49,42, 
4C,45,9C,29,CD,D®,D3,2D, 
38,390,32,29,28,4D,49,54, 
20,D2,C5,D6,29,38,32,D6, 
29,9C,20,4A,41,20,29,9C, 
09, 4E,45,49,4E,9C,28,8E, 
28,92,93,81,20,20,20,2A, 
2A,2A,20,20,20,C3,2D,36, 
34,22,D6,C9,C4,C5,CF,D4, 
C5,D8,D4,2D,D3,D9,D3,D4, 
c5,CD,20,20,29,2A,2A,2A, 
22,20,20,11,11,11,2D,20, 
9E,31,2@,9F,D6,D4,2D,D3, 
45,49,54,45,20,45,49,4E, 
4C,45,53,45,4E,0D,9E,32, 
290,9F,C2,49,4C,44,53,43, 
48,49,52,4D,41,55,53,47, 
41,42,45,2D,9E,33,29,9F, 
C5,44,49,54,49,45,52,45, 
4E,0D,9E,34,20,9F,D2,C1, 
CD,2D,D3,45,49,54,45,4E, 
290,54,52,41,4E,53,46,45, 
52,49,45,52,45,4E,@D,9E, 
35,29, 9F,C4,52,55,43,4B, 
45,52,41,55,53,47,41,42, 
45,0D, 9E,36,20,9F,D2,C1, 
CD,2D,D3,45,49,54,45,4E, 


22,DD,42,45,52,53,49,43, 
48,54,2D,9E,37,208,9F,C4, 
49,53,4B,4D,45,4E,55,45, 
OD, 9E,38,20,9F,C5,4E,44, 
45,2D, 29, 9E,31,20,9F,D3, 
45,49,54,45,28,4E,29,20, 
4C,41,44,45,4E,2D,9E, 32, 
22,9F,C5,49,4E,45,20,D3, 
45,49,54,45,290,53,59,45, 
49,43,48,45,52,4E,©D,9E, 
33,20,9F,CD,45,48,52,45, 
52,45,290,D3,45,49,54,45, 
4E,20,53,59,45,49,43,48, 
45,52,4E, DD, 9E,34,20,9F, 
C4,49,53,4B,2D,43,4F,4D, 
4D,41,4E,44,0D,9E, 35,292, 
9F,C4,49,52,45,43,54,4F, 
52,59,0D,9E,36,29,9F,D2, 
C1,CD,2D,D3,45,49,54,45, 
4E,28,DD,42,45,52,53,49, 
43,48,54,0D,9E,37,28,9F, 
C8,41,55,59,54,4D,45,4E, 
55,45,0D,9E,38,29,9F,C8, 
49,52,45,53,2D,C2,49,4C, 


29,12,1B,24,2D,36,3F,48, 
‚02, c2, 
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20 
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38 


06,07,10,10,19,10,10,19, 
19,10,20,21,02,923,04,05, 
26,27,18,19,1A,19,1D,1D, 
1E,1F,29,21,22,23,24,25, 
26,27,28,29,2A,2B,2C,2D, 
2E,2F,390,31,32,33,34,35, 
36,37,38,39,3A,3B,3C,3D, 
3E,3F,60,61,62,693,64,65, 
66,67,68,69,6A,6B,6C,6D, 
6E,6F,79,71,72,73,74,75, 
76,77,78,79,7A,7B,7C,7D, 
7E,7F,490,41,42,43,44,45, 
46,47,48,49,4A,4B,4C,4D, 
4E,4F,50,51,52,53,54,55, 
56,57,58,59,5A,5B,5C,5D, 
SE,5SF,28,1C,1E,9E,1F,9C, 
9F,9B,92,28,08,08,28,08, 
08,28, FF,1C,1E,9E,1F,9C, 
9F,05, FF,Ä,FF,FF,FF,FF,FF, 
FF,FF,FF,1C,1E,9E,1F,9C, 

‚12,1A,907,FF,FF,22, 


ei 


EINER 


53,20,56,90,17,55,40,1F, 


1E21 7092 DATA 3C,99,E2,F0,18,3C,66,20, 78 1F59 7489 DATA : ; ? 
1E29 7100 DATA 20,00, 20,00,E2,F8,00,20, EB 1F61 7490 DATA 52,00,56,882,1F,A2,08,BD, Fi 
1ES1 7110 DATA 29,20,00,20, FE,22,E0,29, DD 1F69 7598 DATA SE, 1F,9D,47,1F,CA,10,F7, © 
1E39 7129 DATA @E, 1B,0E, 20,20,00,20,00, @©1 ıF7Tı 7518 DATA A9,2OF,8D,12,92B,A9,29,85, F2 
1E41 7138 DATA E®,D8,66,920,3C,06,3E,66, 7C 1F79 7520 DATA F9,A9,53,85,FA,AQ®,FF,84, F2 
1E49 7140 DATA 3E, 29, E®,E9,66,29,3C,66, 7A ı1F81 7539 DATA 24,A9, 20,85, FB,A9,54,85, 38 
1E51 715@ DATA 66,66,3C,90,E®,E8,66,20, 9A 1F89 7548 DATA FC,A9,97, 85,23,A4,24,Bl, BB 
. 1E59 716® DATA 66,66,66,66,3E,29,E®,F®, 2D ıF91 7558 DATA F9,A4,23,91,FB,C6,23,C6, 79 
ı1E61 717@ DATA 38,6C,6C,7C,66,66,7C,60, D8& 1F99 7568 DATA 24,88,190,F1,A5,FB,18,69, 16 
1E69 7180 DATA E®,F8,FE,FE,FE,FE,FE,FE, E8 1FA1l 757@ DATA 28,85, FB,90,02,E6,FC,A5, 81 
1E71 7198 DATA FE,29,FF,20,20,F0,00,0F, FD 1FA9 7589 DATA 24,C9,3F,D0,DC,60,200,00, 47 
1E79 7290 DATA 20,FF,20,00,F0,F®,F®,0F, ES 60000 FOR A= 2049 TO 8125 SIEP 3994 
1E81 721@ DATA FO,FF,F9,00,0F,F®,20F,oF, 09 8:S=0:C=®: FOR B=® TO 7: 
1E89 7220 DATA OF,FF,OF,®80,FF,F@,FF,OF, 1E GOSUB 60040 ; % = 
1E91 7238 DATA FF,FF,FF,90,F®,@F,FF,77, 66 60010 S=S+H+L-C: C=S>255: $=255-8 59034 3 
1E99 7248 DATA 77,20,77,77,008,77,008,0D, F3 AND 255: POKE A+B, H+L: NEXT >= 
1EA1 7250 DATA 1B,41,08,1B,2A,04,49,201, 2C B: GOSUB 60040 R 
1EA9 7268 DATA 1B,2A,24,80,02,20,01,00, 79 an n : 
1EBl 7270 DATA 00, 12,@E,05,09,07,13,00, 03 ee u 
1EB9 7280 DATA 10,2B,2B,02D,00,203,2C,0F, FD nr 
PRUEFSUMMENFEHLER" : F=F+1 
1EC1 7290 DATA 39,33,3C,3F,C®,C3,CC,CF, F4 E z ” 5 
1ECO 7300 DATA E®.F3. FC. FF. 00.06 60039 GOSUB 60999: NEXT A: PRINT 2267 
’ ’ ’ ’ ’ ‚2C, 12, EE ” Lu * 
[ DOVN] " F" FEHLER" : END 
-1ED1 731@ DATA 18,1E,24,2A,2A,2A,2A,2A, F4 60048 READ H$:GOSUB 60050:H=LX 2715 
1ED9 7328 DATA 2A,2A,2A,2A,00,06,2C,12, F4 16: HS=MID$ (HS, 2) TRETE 
’ ’ 
1EE1 733@ DATA 18,1E,24,39,36,3C,2A,2A, ES 602050 L=ASC (H$+"X")-A8: IF L<® 3198 
1EE9 7348 DATA 42,48,4E,81,BD,B1,B1,Bi, D3 OR L>22 THEN 60080 
 1EF1 735® DATA 81,81,9D,B5,9D,8D,B9, 81, 32 
6090862 IF L<1@ THEN RETURN 1944 
1EF9 736@ DATA AS,BD,99,99,81,81,B1,B1, E& r 4 
< 60072 L=L-7: IF L>9 THEN RETURN 1334 
' 1F@1 737@ DATA BD,B5,BD,81,A5,A5,BD,99, 67 60080 F$="LRVS)EINGABEREHLER":L= 2460 
1F@9 738@ DATA 81,81,9D,B1,B1,9D,81,81, & 9: F=F+1 ce 
ı1F11 7398 DATA C3,DB,DB,BD,81,C3,A5,99, DO 60098 PRINT "ZEILE" PEEK (64)%* 2726 
1F19 7488 DATA 99,A5,C3,99,AD,8D,99,81, 56 256+PEEK (63) F$: RETURN E 
ı1F21 7410 DATA 99,81,B1,B1,8D,8D,81,81, 18 l 
ı1F29 74298 DATA A9,95,A9,95,81,BD,BD,BD, EC SAVEN DES PROGRAMMS NACH STARTEN 
‚ıF31 7438 DATA BD,BD,BD,81,99,B1,FF,Bi, 71 DES LOADERS MIT 
ı1F39 7448 DATA 99,81,99,8D,FF,8D,99,50, DE - 
.1F41 7450 DATA 20,54,00,1F,51,290,54,28, 12 POKE 43, L1:POKE 44, 8 
ı1F49 746@ DATA 287,51,08,55,49,17,52,20, E5 POKE 45,175: POKE 46, 31 
ı1F51 7470 DATA 55,58,0F,52, 10,56,80, OF, E6 SAVE "NAME",8 


Listing 1: Das Hauptprogramm zu „Videotext“. Bitte die Hinweise im Kasten „So tippt man die Programme ab“, beachten. 


Wichtige POKEs zum 
Ändern des Programms: 


(Erster Wert = Originalwert, zweiter 
Wert = optionaler Wert) 

2744 ($0ABB) 

44 = für einfachen Seitenspeicher 

32 = für Mehrfach-Seitenspeicher 
4188 ($105C) 

4 = Epson-Ausgabe (mit Görlitz-Inter- 
face) 

1 = Data Becker- oder Wiesemann-In- 
terface 

5633 ($1601) 

58 = IRQ-Rasterkonstante für Multico- 
lor 

53 bis 63 = wenn Multicolorzeilen flak- 
kern, eventuell einstellen 


7850 ($1EAA) 

0 = MPS-802 (in Print-Options) 

l = Epson oder Kompatible 

7851 ($1EAB) 

1 = Auto-Linefeed ein 

0 = kein Auto-Linefeed 

7852 ($1EAC) 

0 = keine verdeckten Zeichen 

l = verdeckte Zeichen mitdrucken 
7853 ($1EAD) 

0 = normale Größe drucken 

l = doppelte Größe 

7854 ($1EAE) 

18 = Tabulatorspalte Druckposition 
O bis 39 = einstellbar 


Für Besitzer des MPS-802 
(VC 1526): 


AMT EREHETER NR BT, 


Da dieser Drucker weit verbreitet ist, 
wird hier eine kleine Betriebssystem- 
modifikation vorgestellt. Sie ermög- 
licht einen schnellen Ausdruck. 

Mit einem Epromer liest man das Ori- 
ginal-Betriebssysteem zum Beispiel 
nach $8000 bis $9FFF. Dann werden 
die Bytes des Listing 2 in den Bereich 
ab $8400 transferiert und das neue 
System auf einem Eprom program- 
miert. Kenner des Druckers merken 


sofort: Es handelt sich lediglich um ei- 
nen neuen Zeichensatz, welcher die 
neuen VT-Grafik und -Sonderzeichen 
beinhaltet. Einziger Wermutstropfen: 
Die „geteilten“ Grafikzeichen sind 
nicht darstellbar. Wer's komplett 
möchte, muß auf ein Betriebssystem 
zurückgreifen, das einen Epson-Druk- 
ker simuliert. Die Zeit zum Ausdruk- 
ken vervielfacht sich zwar, dafür wer- 
den alle Zeichen gedruckt. 
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29,22,20,42,E0,ADO,EO,4D, 
29,84, 2E,2A,2A,3E,1E,20, 
00, 7E,7E,12,12,1E,2C,290, 
29, 1C,3E,22,22,22,00,00, 
092,00, 1E,12,12,75B,7E, 29, 
208,1C,3E,2A,2A,3A,18,20, 
200,20, 10,3E, 7E,50,59,29, 
28,19,3D,25,25,3F,3E, 20, 
200, 7E,7E,10,1@0,1E,20E,20, 
29,292, 12,5E,5E,22,20,90, 
29,28,21,21,21,5F,5E,929, 
00, 7E,7E,28,1C,16,02,00, 
22,29,42,7E,7E,02,20,09, 
09, 3E,3E,18,1C,38,3E,1E, 
09,3E,3E,29,20,3E,1E,99, 
09,1C,3E,22,22,3E,1C,929, 
80,3F,3F,24,24,3C,18,900, 
22,18,3C,24,24,3F,3F,920, 
20,3E,3E,292,20,39,19,900, 
09, 12,3A,2A,2A,2E,24,90, 
02,20,20,7C,TE,22,22,292, 
09,3C,3E, 82,92, 3E,3E, 22, 
09,38,3C,906,06,3C,38,90, 
29,38, 3E,@E,1C, ©E, SE, 38, 


SERRITTEEREE 


22 
F2 
FE 
29 
F2 
22 
28 
D6 
32 
B2 
60 
c6 
7C 


ER BE ER oe EL SE ST ER RT 


SIEHSEHSSAMD 


20,00,82,C6, 
10,54,7C,38,38,7C, 
29,10,12,7C,7C,10,10,20, 
029,02,01,27,06,20,00,00, 
29,10,12,10,19,10,10,00, 
20,00, 20,26,06,20,20,20, 
292,22,06,2C,18,39,69,40, 


wie we BEE ET ER 


[9] 
> 


7C,FE,92,92,DE,4C, 20, 
‚C2,9E,BE,E®d,CO, 90, 
‚FE, 92,92,FE,6C, 20, 
‚F6,92,92,FE,7C,20, 
,29,24,24,20,00,00, 
‚21,27,26,00,29,920, 
‚,38,6C,C6,82,82,290, 
‚28,28,28,28,28,20, 
‚82,C6,6C,38,10,20, 
‚Cc2,8A,9A,F0,60,00, 
‚FA,AA,AA,BE,14,29, 
‚7E,D®,D2,7E,3E, 20, 
‚FE,92,92,FE,6C, 282, 
‚FE,82,82,C6,44,20, 
‚FE,82,C6,7C.38,20, 
‚FE,92,92,82,82,20, 
‚FE,90,90,80,89,00, 
‚FE, 82,92,DE,5C, 20, 
FE,1®,1@,FE,FE, 


.-.- 


DRROHRBAÄSBESSER 


SHHHOHHSREDHSSLLAS 


SSSSSISSSSESSSSSSESNS 


BIESSEETHLEEHEHESEEN 


FE, 38,6C,C6,82,22, 
FE,02,02,92,02,20, 
FE, 60,30,60, FE,FE, 
FE, 79,38, FE, FE, 90, 
FE,82,82,FE,7C,@0, 
FE, 90,92, F9,690,20, 
FC,84,86, FE, 7A, 20, 


.-.-. 0... 
- ee ee. 


I] 
[e)} 
o 
w 
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w 
e) 
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2, FE,FE,80,89, 092, 


DR 


© 


- 
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SSESISSSSESSESSSTSESSSTSS 


SSESISSSSESSESEMS 


DE a BE Er 


» 
(8) 
BSSESISHAASSSSNSRAHSSSMEHASFmOEmAHnmEm 


- 
- 
- 


SESSESISNSARHNKOMERN 


Pe ee Ze a ae a a Er 


SIIIITEEREELLISII HET 


SHRESISSESISNSEHHRHHMEHOAN 


IEIEIKIIIENEIIERISTITREN 
1} 
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U ES Er ER a Sc in Se Be DE Be 


5: 
53 
53 
52 
53 


U Sn ESEL Zi Zah 


8 
»r 
2 
» 
9 
» 
N} 
»r 
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‚FC,FC,FC,FC, 
C,FC,FC,FC, 


“een ee Biene 
"u. we 
TE SE RS 
“en ul0 0. 00 
I} 


BEBSHHHHESEBSHAHSSISSHHAASSSSNEHHHMmAHmOm 
BSASEIIEESS 


be: 


n 
N: 


SIEILHITIIITHIHISI TELLER) 


“en 0 ee ee ee 


C,1C,1C,1C, 
C,1C,1C,1C, 


Pe 


I: 


3 
AISSSEIEAHESISFSITSSESISESTSISISESSSIESIESESSISSESTESESERNSESSSKSKSESE.N 


SSRHSIHBSHSIHHHEBERISISHSESAHE 
8583 
888 


vr 
Kufls 


3585 
SEIIINIIHINIIITIIEEEEFIFFEEEEII IT 


Pu I 2 I a 
.. nn. ne. een 


SIEISSFERE 


.“. . . nl. ne 


SIIISIIITITIITEREIIII ILL CE 


ar a Mofer Anle, Hae au) a 


BIÄSHSSSESHRESITFEEESNGH 
SIENHSESEERSIHSERSES>SN 


.- ee nee. 


III 


Du De 


SQ 
» 


ATI DPFLUERT 


88Bd 1510 DATA 81,42,24,18,18,24,42,81, 08 80B®O 1830 DATA 1F,1F,1F,1F,E3,E3,E3,E3, 00 
88B8 1520 DATA 09,3C,42,42,42,42,3C,20, ®® 89B8 184® DATA FF,FF,FF,FF,ES,E3,E3,E3, @0 
88CO 1539 DATA 38,3A,F2,EE,F2,34,38,0®, F2 89CD 1859 DATA 03,03,03,03,1F,1F,1F,1F, 28 

8808 1549 DATA 00, 00, 20,00, 00,0, FF,2@, FF 89C8 186® DATA E3,E3,E3,E3,1F,1F,1F,1F, 80 
 88D® 1550 DATA 10,38,7C,FE,7C,38,10,00, AB 89D® 187@ DATA 03,03,03,03,FF,FF,FF,FF, 08 
 88D8 156® DATA a F7 89D8 1880 DATA E3,E3,E3,E3,FF,FF,FF,FF, ®® 
'88E0 157@ DATA AA,55,AA,55,20,20,00,00, AA 809EO 189@ DATA 1F,1F,1F,1F,1F,1F,1F,1F, @8 
888 1580 DATA 00, 20.00.00, FF,00,00,00, FF 89E8 1900 DATA FF,FF,FF,FF,1F,1F,1F,1F, @8 

_ 88F® 159® DATA 020,08, 0E,10,3E,20,00,20, 14 89F® 191@ DATA 1F,1F,1F,1F,FF,FF,FF,FF, 08 

_ 88F8 1692@ DATA 80,C0,E0,F®,F8,FC,FE,FF, AB 89F8 1928 DATA FF,FF,FF,FF,FF,FF,FF,FF, 98 

80900 1610 DATA 20,20, 00,00, 03,03,03,03, 00 60000 FOR A=33792 TO 3532® STEP 4069 

8908 16228 DATA EO, EB, EO, EO, 03,03, 03,03. 28 8:S=0:C=B: FOR B=8 TO 7: 

. 89108 1632 DATA 29,20,20,00,E3,E3,E3,E3, 99 GOSUB 600498 

8918 1640 DATA ED, E®,E0,E0,E3,E3,E3,ES, 00 69010 S=S+H+L-C:C=S>255: 5=255-5 5934 

8920 1650 DATA 1C, 1C,1C,1C,03,23, 03,23, 00 AND 255: POKE A+B, H+L: NEXT 

8928 1660 DATA FC,FC,FC,FC,23,23,03,03, ®@® B:GOSUR 60049 

8939 1678 DATA 1C,1C, 1C, 1C,E3,E3,E3,E3, 00 60020 Fs="PRUEFSUMME OK": IF S<> 5699 

8938 168® DATA FC,FC, FC,FC,E3,ES3, ES,E3, 28 H+L THEN Fs="[RVS] 

& 8949 1698 DATA 00.00, 00. @2,1F, ir, 1iF,1F, @® PRUEFSUMMENFEHLER" : F=F+1 

en ST DE ee En a a5: 60030 GOSUB 60090: NEXT A: PRINT " 2267 

8050 1710 DATA 00,90, 00,00, FF,FF,FF,FF, 00 ( DOWN] "F" FEHLER": END 
8958 1720 DATA EO,EO, EO, BO, FF,FF,FF,FF, 20 60040 READ H$:GOSUB 60050:H=LX* 2715 

E '896® 1730 DATA 1C,1C,1C, Ie + ee =” ” ® 16: Hs=NIDS cHS,2) 

8968 1748 DATA FC,FC,FC,FC,1F,1F,1F,1F, ; " = 

8978 1758 DATA 1C,1C,1C,1C,FF,FF,FF,FF, 20 era en ee 1<@ 3198 

8978 176® DATA FC,FC,FC,FC,FF,FF,FF,FF, 00 

4 6006® IF L<1® THEN RETURN 1944 

"8980 1770 DATA 03,03,05, argper ER: ni 600@7® L=L-7: IF L>9 THEN RETURN 1334 

_ 8988 1780 DATA E3,E9,E3, E93, 09, 09,09,08, 00 60080 F&-"LRVEIRINGABRFEHLER":L=- 2468 

8990 1790 DATA 23,03, 03,03, E3,E3 E3.E3, E3, 00 een 

8998 1800 DATA E3,E3,E3,E3,E3,E3,E3,E3, 20 & 

8948 1819 DATA 1F,1F,1F,1F,03,03,03,03, 20 60@90 PRINT "ZEILE" PEEK (64)k 2726 

89A8 182 DATA FF,FF,FF,FF,23,03,03,03, 00 256+PEEK (63)F$: RETURN 


Listing 2: Betriebssystemmodifikation für den MPS 802. Bitte den Kasten „So tippt man die Programme ab“, beachten. 


NEH 
URTEITTECHINN 


Andreas , König electronic, Stresemannstraße 11, 5800 Hagen 1, Telefon 0 23 31/1 69 79 


DAS SPITZENZUBEHÖR C 64/128/16 


EPROM-BRENNER DOS-KABEL AC H T U N G 


32 K fertig im Gehäuse, mit Soft-Disk Nr, 9555 DM 149,00 Für parallele DOS-Übertragung + Reset Nr, 9597 DM 22,95 
32.K dito, jedoch als Bausatz 5 k dito, jedoch durchgeführter Userport Nr, 9535 DM 25,00 


64 K fertig im Gehäuse, mit Soft-Disk , dito, jedoch für Floppy 1570/71 Nr. 9536 DM 25,00 Bitte fordern Sie unseren großen vierfarbi- 
64 K dito, jedoch als Bausatz i h REX DOS (FLOPPY SPEEDER) 
EPROM-KARTEN Das schnelle Übertragungssystem, ca. 10x schneller Laden, Ver- 


gen KATALOG an. Dort finden Sie viele wei- 


tere Computerzubehörs. Hier ist nur eine 
ge PR rar selig .. n Don kurze Programmnübersicht möglich. 
MODULE der Superlative! Sie können auf dem Versandweg direkt bei 
Alle Module im Gehäuse, mit Resettaster, guter Beschreibung und uns bestellen: REX DATENTECHNIK, Strese- 
Ne Syebsıy mannstr. 11, 5800 HAGEN 1, Tel. 0.23 31/ 


HYPRA-DISK-MODUL 7 x schneller laden/ver. 2 ’ 
HARDCOPY-TURBO-MODUL 7x Tempo.Copy uva. : 16979 und 3 27 34, Telex 823 401 ekha d. 


EPROM-MODUL-GENERATOR für Autostartprg. } \ Ab 200,— Versand frei, darunter bei NN 
PURE ED EELIENE EEnn B “ 6,—/VK 4,—, Ausland nur Vorkasse, Ver- 
HYPRA-TAPE-MODUL 10x Tempo/lad/save/ver. i b ur a 
MONITOR-MODUL. mit Tu DC 3 ; sandkosten 15,—, ab 400,— % MwSt. 

128er MODUL für 64er Mod. 6x Tempo 1570/71 { 5 Wenn Sie im Fachhandel kaufen wollen und 


SUPER-UNIVERSAL-MODUL, erfüllt alle hier a 

Für ROMs 24/28polg 1x 8oder 16 K Nr. 9598 DM angegebenen Funktionen, außer 9541/45/9604 = Ware vorher ergehen zen 
Für ROMs 24/28poligfür4x8K + Schalt. Nr. 9594 DM LIGHTPEN-MODUL, malen und befehlen via ie hier unten im Stützpunkthändlerver- 
dito, jedoch fürC 128/D 3fach Nr. 9595 DM 27,80 PICTURES-PRINTER-MODUL, druckt alle Bilder zeichnis nach, ob einer in Ihrer Nähe ist. 

Die Artikel 9594 + 95 sind besonders klein (ca. 22x40 mm) auf fast allen Druckern, Okimate 20 in color 


16K (2x 8K) 2716-54 Duo-Modulkarte 

32 K (2x 16 K und BSU) Variokarte 

256 K (8x 2716-32) mit Soft-Eprom 

256 K, dito, jedoch als Bausatz 

1MB(16x 2764/256/512) mit Soft-Eprom 
BETRIEBSSYSTEM-UMSCH.-PLATINEN 

1x alt/1x neu mit Umschalter Nr. 9517 DM 
1x alt/1x neu dito, absturzfrei Nr. 9525 DM 
1x alt/6x neu gend Nr. 9527 DM 
1x alt/2x neu fürC 128/Dm. Schalt. Nr. 9524 DM 
4x BSund4x 8K Modul, Kombikarte Nr. 9528 DM 
dito, jedoch direkt für Expansionsport Nr. 9509 DM 


ADAPTER-SOCKEL 


n 
So 
8 


ade 12 @ 2000 


Stützpunkthändler: 1008 Bern 61, A 2 Encrunc Sirsemannstrate 05 @ 100 Br 30, COSMAD cr, Kursen 145 @ 1000 Bern d2. Mk Dtsch, ae 5190 Bar. am Dtruchni, Karin apa Sad 1,8 208 arg © 
2000 Hamburg 1. Nerderstadt, Hamburg 
ke, Goethestraße 3 ® 3000 Hannever 1, WADLER Ein Freche 31 © 3158 Pine, Ernst Eiochnanic, 


Köln, Kom 1. Hohenstaufenring 43 45 @ 5000 Köln, Lima-Electronik, Ülpenstraße 80 @ 5830 M 
Iraße 11 @ 5120 Marzagenraiı, astahk Gt Fü. Pal Rubaungletz & © 5108 Düren, 
24 © 5400 ix 


Ausland: © A-1060 Wien, ee Wallgasse 39/9 © A-6800 Feidkiech, Targei-Eleciromic., Pesnsrae 123 ©1300 um, LSW. Tiengestrant 209 @ CH-J185 Schmäten, MFS Hard- und Software, Tel. ee paper Absalen Dita. Ya mg Bing rchnneeng 
Ho gt EEE j Hisgasoft, SA. Cosa 87 @ 109162 Rama, Firma Mschöler, Via Lorenze |. Magnifice 148 @ 119033 Castelnuove, New Saft; Via Garbone & @ NL-3083 AL Metterdam, 0.1.1. Eisctr. J. Ligthartstralie 59-51 @ NL-3024 SE Ratterdam, Cat + Korah, Havensirabe 7c @ SF- 


VAREL RENNER ER ERNST 


Wissen 


Per 


CPC steuert C64, 


Teil 2 


Datenübertragung zwischen Schneider CPC und 
C64 ist nicht schwierig — vorausgesetzt, man hat 
die richtige Software. Hier istsie... 


Da bei der Datenübertragung, im Ge- 


gensatz zur Übertragung von ASCII- 
Zeichen, auch ein Null-Byte einen gül- 
tigen Wert darstellt, wurde hier ein 
anderes Verfahren gewählt, um zu ei- 
.nem definierten Ende der Übertra- 
gung zu kommen. Die Anzahl der zu 
sendenden Bytes wird in der Reihen- 
folge Low-Byte, High-Byte vorange- 
stellt, wobei diese beiden nicht mit- 
zählen! Dem CPC muß jetzt noch mit 
WIDTH 255 
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mitgeteilt werden, daß er nicht nach 
einer bestimmten Anzahl von Druck- 
zeichen automatisch ein „CR“+,„LF“ 
anhängt, und die Daten durcheinan- 
derbringt. 

Benötigt werden wieder INIT und 
CENTGET (Listing l.a beziehungswei- 
se l1.b — erschienen in der vorange- 
gangenen RUN-Ausgabe), sowie EIN- 
GABE VON DATEN (Listing 4.a bezie- 
hungsweise 4.b). Gestartet wird mit 
SYS 49390 


Der CPC kann jetzt Daten senden (mit 
PRINT #8, ....) 

Kurz die Erklärung von Listing 4.a: Ab 
Label BGET wird der Bildschirm ein- 
gestellt und die Empfangsroutine 
CENTGET eingeschaltet. Beim Label 
INPUT wird die Startadresse, ab der 
die Daten abgelegt werden sollen, ab- 
gefragt. Die Eingabe von „E" führt 
zum Ende. Ab Label ZAHL wird die 
Zahl geprüft: Eingaben kleiner als 512 
führen in der Regel zum Absturz 
(ZERO-Page, Stack), was hier durch 
eine Fehlermeldung abgefangen 
wird. Bei Zahlen über 64000 meldet 
sich das Betriebssystem mit „SYNTAX 
ERROR" und das Programm muß mit 
SYS 49390 neu gestartet werden. 
Label GET: Zuerst wird die Start- 
adresse in der ZERO-Page gespei- 
chert. Dann werden Low- und High- 
Byte der Datenmenge eingelesen und 
zwischengespeichert. Entsprechend 
oft ruft die Schleife ab GL] die Routine 
CENTGET auf und legt die Daten ab 
der Startadresse aufsteigend ab. Soll- 
te dabei versucht werden, Daten über 
65535 abzulegen, bricht die Routine 


automatisch ab. Ist die Datenübertra- 
g beendet, wird erneut nach einer 
Startadresse gefragt. Gegebenenfalls 
kann jetzt „E“ eingegeben werden. 
Wer die Eingabeschleife direkt an- 
steuern will, muß im Akku das Low- 
‚Byte und im Y-Register das High-Byte 
der Startadresse übergeben. Dabei 
muß das CARRY-Flag unbedingt ge- 
‚löscht sein. Tritt ein Fehler auf, kehrt 
die Routine mit gesetztem CARRY- 
Flag zurück. Von BASIC aus geht das 
folgendermaßen: 
.POKE 780,Low-Byte 
POKE 782,High-Byte 
POKE 783,0 : REM CARRY gelöscht 
‚SYS 49525 
Der CPC überträgt Werte ab 128 nicht 
korrekt, wenn nicht die kleine Hard- 
'waremodifikation (siehe oben) vorge- 
nommen wurde beziehungsweise 
R in geeigneter Treiber vorhanden 
, Also gegebenenfalls Rechner auf- 
schrauben und Lötkolben anheizen. 
Wenn's dann immer noch nicht 
klappt, so sollte unbedingt der 8-Bit- 
Treiber benutzt werden, weil dieser 
die Daten ausreichend lange an den 


Een 


Centronics-Port legt, so daß der C64 
eine reelle Chance hat, sie zu lesen. 
Für den CPC 464 kann der in EDIT 
(Listing 3.a beziehungsweise 3.b) im- 
plementierte Treiber benutzt werden 
(er bleibt auch nach Ausschalten der 
Hauptroutine aktiv), auf allen anderen 
CPCs läuft das Programm 8-BIT (Listing 
5.b), weil es die benötigten Adressen 
automatisch anpaßt. Ansonsten ent- 
spricht es der Unterroutine bei EDIT. 
Um dem C64 den CPC-Zeichensatz zu 
verpassen, muß beachtet werden, 
daß einige Zeichen vertauscht sind 
(siehe oben). Die komfortabelste Mög- 
lichkeit bietet sich mit CHRTRANS 
(Listing 6.b), wobei hier noch der deut- 
sche Zeichensatz und der 8-Bit-Trei- 
ber implementiert sind. Werden die 
Umlaute nicht gewünscht, muß Zeile 
40 gestrichen werden. 

Auf dem C64 wird (die oben genann- 
ten Routinen 1. und 4. müssen sich na- 
türlich im Speicher befinden) mit 

SYS 49390 gestartet und 

als Startadresse zum Beispiel 12288 
eingegeben. Auf dem Schneider CPC 
CHRTRANS starten und folgende Ein- 


A-$ 


gaben machen: 

(RETURN) $=Klammeraffe 

(RETURN) B3=ASCI 126 
(CTRL +2) 

(RETURN) # =Unterstrich 

(RETURN) *=SPACE 


(RETURN) 
(RETURN) $=(ASC1I 96) 
(RETURN) 


8-8 
a—ß 


—_— # —_— 
x? 
Be 


*_%* 


CTRL+C (RETURN) 


Beim C64 mit „E“ aussteigen. Um den 
jetzt im RAM befindlichen CPC-Zei- 
chensatz einzuschalten, muß folgen- 
des eingegeben werden: 

POKE 53272,28 

CHRTRANS kann die Zeichen natür- 
lich in jeder beliebigen Reihenfolge 
senden, gegebenenfalls muß in Zeile 
70 größer dimensioniert werden. Die 
Ausgabe der Bitmuster kann auch auf 
einem Drucker erfolgen (Eingabe 
„D“). Dann müssen in Zeile 60 nach 
dem Befehl PRINT #8 die druckerspe- 
zifischen Steuerzeichen für Grafik- 
druck angepaßt werden. 


(1. Borleis, B. No6) EEE 


Wissen 


18 For i-48398 to 49578:read q:su=su+rqg: 3683 130 data 65,68,82.,69,83,83,69,32 26595 
poke i,q:next 140 data 63,32,0,13,13,7@,69,7 
20 if su<>16728 then print "fehler in 2935 156 data wenn _—. = 
datas”:stop 160 data 69,83,83,69,32,90,85, 
30 data 169,9,141,32,208,141,33,208 a ee 5. 
30 data 163,5,141,134,2,32,0,198 E71 188 data 82,32,90,85,32,78,73,69 2a24 
50 data 169,16,141,13,221,169,56,16® 2926 | 190 data 68.82.73 71.33 13.0 133 2390 
60 data 193,32,30,171,32,96,165,134 3422 | 200 data 4,132.5,32,22,192,73,255 2594 
70 data 1FR,138,123,32,115,0, 144,7 3042 | 210 data 133,2,32,22,192,73,255,133 2342 
88 data 201,69,208,233,76,116,164,32 3268 228 data 3,164 ,4,169,0.133,4,230 2729 
S@ data 1907,169,164,21,192,2,144,8 311® 230 data 2,208,4,230,3.240.13,32 2282 
Be ee ne 0,0 1,30, 117 192 2,613 3145 | 240 data 22,192,145,4,200,208, 240,230 2961 
118 data 169,73,160,193,32,30,171,76 3407 | 250 data 5 2OB 236 696.223 148 
120 data 3,193,13,83,84,65,82,84 2447 a a 


Listing 4b: Wie 4a, nur als Basiclader. 


2000 '%* 8-Bit X BASIC-LADER fuer alle (3667) | 2080 POKE &BDF3, INT(CHIMEM+1)/256) (1539) 

CPC'’s 03.10.1986 Bernd Noe 2090 DELETE 2000-2100: ’end (845) 

2010 "ausschalten: call &bd28 (MC RESET (3299) | 2100 DATA 01,00,F6,ED,49,CB,7F,28,04,0E, (2435) 
PRINTER) 20,ED,49,C3 

2020 MEMORY HIMEN-16: RESTORE 2100 (544) 

2030 FOR i=HIMEM+1 TO HIMEM+14 (1397) | in Verbindung mit LISTING 6.b sollte die Zeile 

2040 READ as: POKE i,VAL("&"+a8): NEXT (614) 2090 wie folgt lauten: 

2050 POKE HIMEX+15, PEEK (&BDF2) (922) 

2060 POKE HIMEM+16, PEEK(&BDF3) (1308) | 2090 CALL &BB4E : RUN :' SYMBOL AFTER er (3884) 

2070 POKE &BDF2,UNTCHIMEM+1) AND &FF (2201) | moeglichen & Neustart 


Listing Sb: Treiberprogramm für die CPCs 664, 6128. 


10 'xx CHRTRANS %% Zeichenbitmusterueber (3807) 200 '% BYTES ausgeben (1582) 
tragung zum C-64 oder Drucker * 16.9.86 210 FOR i=1 TO i-1 (559) 
20 IF PEEK(&BDF3)<&3F THEN GOSUB 2000:' (4827) 220 FOR j=HIMEM+1+8XASC(a$(i))TO HIMEM+3 (2763) 
>8-Bit< einbinden XASC (RIGHTS (a8 (1), 1))+8 
30 SYMBOL AFTER O (1116) | 230 PRINT#8,CHRS (PEEK(j)); (1791) 
40 GOSUB 1000:' Umlaute einrichten (2920) | 240 NEXT J,i (396) 
50 WIDTH 255 (957) 250 IF UPPERS(d$)="D"THEN PRINT#8,CHRS(1 (1802) 
60 INPUT"An Drucker (D) oder C-64 (ENTE (4787) 
R) ",d$: IF UPPERS(d$)="D"THEN PRINT#8,” 2 
KR”; 260 END (110) 
70 DIM as(30) (623) 1000 'Umlaute (724) 
EYE ken Aiciemen cısag) | 1010 KEY DEF 24,1,126,94, 163 (1591) 
90 PRINT: PRINT"Bitmuster ab Zeichen - Z (4825) | 1020 KEY DEF 26,1,123,91 023} 
eichen :" TAB(40)" (Ende: CTRL-C +ENTER)" 1030. KEY DEF 17,1, 124,90 a 
: PRINT 1040 KEY DEF 19,1,125,93 a 
1050 KEY DEF 22,1,64 
= ie ee RR 1060 SYMBOL 64,62,96,60,102,60,6,124 (2164) 
120 LINE INPUT" (Z-Z) : ",asci) (2689, | 1070 SYMBOL 91,219,60,102,102,126,102,10 (2772) 
130 IR(LEN(a$(i))<>3 OR MID$(as(i),2,19< (5088) | 2 
2"=")AND asCi)<>CHRS(SITHEN PRINT CHRS (1 1080 SYMBOL 92,198,56,108,198,198,108,56 (2096) 
1)+CHRS (18); :G0TO 120 1090 SYMBOL 93,102,0,102,102,102,102,60 (2145) 
140 WEND (390) 1100 SYMBOL 123,108,0,120,12,124,204,118 (2198) 
150 '% Anzahl feststellen + an #8 ausgeb (2869) 1110 SYMBOL 124,102,0,60,102,102,102,60 (1824) 
en 1120 SYMBOL 125,0,102,0,102,102,102,62 (2199) 
160 FOR i=1 TO i-1 (559) 1130 SYMBOL 126,56, 108,108,108,102,102,1 (2270) 
170 anzahl=anzahl+(ASC(RIGHTS(a$ (1),1))- (2983) 08,96 
ASC (as (i))+1)x8 
180 NEXT (350) 1140 RETURN (555) 
190 PRINT anzahl"BYTES ":PRINT#8,CHRS(&F (5685) | 2000 'x 8-Bit X BASIC-LADER fuer alle (3667) 
F AND anzahl); CHR$(INT(anzahl/256)); CPC'’s 03.10.1986 Bernd Noe 


Listing 6: So lernt der CPC' die Zeichensprache des C64. 
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Auf diesen Seiten 
können Sie laufend 
Angebote und neue 
Produkte aus dem 
Hard-, Software- und 
Peripheriebereich 
anbieten. 


„Was gibt’s wo“? 
Wer aktuell informiert 
sein will, findet hier, 

was er sucht. 


Computerservice 
Tino Hofstede 

An der Windmühle 8 
5010 Bergheim 5 


016/116 (64k) 
4 Plus 
vo20 (16k) 


Programmkatalog gegen ? mal 80 Pf in Ariefmarken 


AAMIGA“ 


U TULITIE> 


Monitor Philips 833 Stereo (baugl. 1081). 
Perfect Sound Stereo Digitizer 

Cltd au 1 MB Fastram 

Cltd 20 MB Festplatte 

MS Electronic 3.5'' 

NEC/1036 All, verstärkter Leserkopf 
Super zuverlässig 

Deluxe Paint II.. 

Deluxe Video Il. 


FIEDLERSTR. 22-32, 3500 KASSEL, ® 0561/1 46 49 
Commodore Service 


Fr HARD & SOFT DEMO-DISK gegen DM 5,— im 


Brief (Schein o. Marken) o. KtNr. I 951 623 
[OL Stadtspark. Kassel BLZ 520 501 51 


ENTE TERN ER EN. 


Ecosoft Economy Software AG 
Kaiserstr. 21, 7890 Waldshut, Tel. 07751-7920 


Frei-Programme (fast) gratis 

Neu: Stark erweiterte Kollektionen: IBM: 1020 
Disks, C64: 360 Disks, 0128: 35 Disks, 
Atari St: 220 Disks, Amiga: 120 Disks, 
Apple Il: 260 Disks, Macintosh: 335 
Disks 
Sonderkollektionen: Von uns nach Sach- 
gebieten sortierte und auf Lauffähigkeit 
und Qualität geprüfte Programme. Bitte 
Liste »Sonderkollektion« anfordern. 
(Computermarke angeben bitte.) 

Neu: Deutsche Programme 

Katalog auf Disketten und 1 Diskette mit 

10 beliebten Programmen DM 10,— 


Einschließlich gedrucktes Sachgebiets- 
Verzeichnis. 
(Bitte Banknote oder Scheck beilegen.) 


Bitte unbedingt Computermarke und 
Modell angeben. 


% DIE BESONDERE SOFTWARE % 


NEU! BZ-ASTROMEDIZIN für COMMODORE 
PC-128 oder C-64 
zur Berechnung u. astromedizinischen Ana- 
Iyse von Geburtshoroskopen — DM 79,— 
Für COMMODORE PC-128: 
— Buchhaltung — komfortable Einnahmenüber- 
schuß-Rechnung n. $ 4.3 EStG f. Kleingewerbe 
u. Freiberufler (u.a. mit statistischer Auswer- 
BR, raf. Darstellung) — DM 79,— 

ATHIE — umfangr. Programmpaket 
(Repertorisierung v. Einzelmittein, Erstellung 
hom. Fragebogen, Komplexmitteldatei) für Ärz- 
te, Heilpraktiker u. interessierte Laien — für 
PC-128 DM 149,—! (auch Vers. f. C-64) 

— ELEKTRONISCHER KARTEIKASTEN zur un- 
komplizierten Verwaltung von umfangreichen 
Stichwortdateien — DM 49,— 


Für COMMODORE 64 und 128 im 64er-Modus: 
Prof. Programme aus den Bereichen ASTROLO- 
GIE, BIORHYTHMIK und PERSÖNLICHKEITSTEST 
sowie HEILPRAKTIKER-AUSBILDUNG 

Fordern Sie unsere umfangreichen Informationen an 


BEATE ZILLE — SOFTWARE 


Berger Straße 272, D-6000 Frank- 
turt/M. 60, Telefon (069) 45 43 17 


Das GRAFIK-ROM II für MPS 802 & 1526 


kt Prim Shop, 
Hi Eddi+, Printfox, Geos 
und viele andere... 


Erafikiruek ahne umständlichs Bafahlseingebe! 


Diese Anzeige wurde erstellt mit Printiex, 38-Funktionen, MPSS02 & GRAFIE-ROM II 


Versand per Nachnahme / Info gegen 50 pf ın Marken 
Preis DM 78.- incl. Porto / zu bestellen bei 
Heinz Haarmann, Koslereir. 72, 4650 Bochum 1 
Tei.: (0234) 79 32 12 


Gesamtkatalog DM 2. in Marken. Hindieranfrauen 
erwünscht 


C64 : PC 128 : VC20 


TEXT menügesteuerte, leicht erlernbare 

Textverarbeitung mit integrierter 

Adreßdatenbank, Selektierung und Steuerung 

nach bis zu 9 verschiedenen 48 2 
‚ 


Kriterien 
FIB frei def. Kontenrahmen, automati- 
scher Kontenausdruck, Journal, Kre- 
ditoren, Debitoren, Summen- und Saldenliste, 
Gewinn- und Verlustrechnung, 98, 
Bilanz, BWA za 
LOHN komplette Lohnabrechnung, alle 
Lohnarten, Abrechnungslisten für 
Finanzamt, Krankenkasse, etc., 98 
Überweisungsträger ‘rg 
F AKTUR integrierte Lager- und Adreßver- 
waltung, Rechnungen,Angebote, 
Lieferscheine, Umsatzstatistik und 
offenePostenliste,biszu3Mahnstufen Ver 


KOMPLETT nur 198,— 


INFO GRATIS 
HD SOFTWARE & BERATUNGS GMBH 


MITTELSTR! 29, 6308 BUTZBACH 5 
TEL. (0 60 33) 6 06 70 


DAS S/6-MODUL 
* Turbo — Disk-Fioppy 5-Tmal schneher 
* Hardcopy — Sruckt Directory und Textein- 


DAS SUPER-PROFI 
BETRIEBSSYSTEM 


s Ester abschaner 

* FT = ÜatalogrDineiany Inden ohne Pru- 
gyarmmerust 

* F2 = seraich 

* Fü = Sys-Beiene abkürzen 

"Aus 

* Fü = Ok) — Gurch Reset oder New zersnöne 


Programme zuruckhalen 

* SHFT/RUN STOP = act das arme Pro = Druckt fast Sesschirmentait 
Disxrin * Drucht Ihre Hihes-Graßiken 

* Gutas Preis 


SUPER HARDCOPY- 
MODUL 


* mit Gehäuse für © 64 und PC 128 
Preis nur 

45 DM 
MODUL S 128 


* ein Super Schneilademodul für den PC 128 
e Le 


ee 
s 

Ifinste ER 

S; intuove Sera tr Akten Zugre a 


WERBEPREIS nur 55 DM 


KLEMMER & SCHULTE 
ELECTRONIC 


Berrenrather Str, 496 
5030 Hürth-Elteren 


Unser Ladenkokal ist MO — FR13— 18.305 
gebfinet SA10— 13.00n 
Sie erreichen uns telefonisch unter 
der Nummer 02233/63736 


könnte Ihre 
Anzeige stehen. 


Rufen Sie 
einfach an. 


Telefon: 
089/3 60 86-201 


Wir beraten Sie 
gerne! 


August/87 um 57 
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KK SOFTWARE % KK SOFTWARE * KK 


Libien? Lybien? Libyen? Wissen Sie's? 
„WELT DER TATSACHEN* trägt Sie nach der richtigen Schreibweise 
Mögliches und Unmögliches aus vielen interessanten Wissen: 
Kein Fachwissen nötig. Für „Teenies“ und „Grufties“. Bis zu 12 Spieler 
können gegeneinander spielen. Durch Eingabe von eigenen Fragen be- 
Niebig erweiterbar! Schwierigkeitsgrad beliebig veränderbar! Ein interes- 
santes und leistungsfähiges QUIZ mit Risiko-, Schnell-Setz- u. Bonus- 
fragen sowie SPEEDQUIZ, wo Schnelligkeit Punkte bringt 
Zu bestellen unter CK 1041 R nur bei uns für nur 24,90 DM. 
RISIKOPOKER 
Spannung wie bei einem Original Spielautomaten. Große farbige Karten- 
darstellung mit Musikausgabe. Überraschend langer Spielspaß. Zu be- 
stellen unter CK 1021 R nur bei uns für nur 9,90 DM. 
DISC/MINT MINI/MINT 
Das Spiel ist eine möglichst naturgetreue Nachbildung von 
2 deutschen Spielautomaten. Mit Startautomatik, Risikoauto- 
matik, Sonderspiele usw. 
Zu bestellen unter CK 1011 R nur bei uns für nur 9,90 DM. 
SUPERLIGA V 3.3 
das ist das umfangreiche, leistungstähige, bedienerfreundliche und ko- 
stengünstige Programm zur Verwaltung von Sport-Tabellen. Nützlich 
für Vereine, Sportreporter sowie Privatpersonen. Einige Merkmale: Ver- 
wältung beliebiger Tabellen mit max. 21 Mannschaften — Einfache Ein- 
gabe von Mannschaften u, Ergebnissen — Ausdruck aller Parameter — 
Berücksichtigung von Nachholspielen — Spezialtabellen (z. B. alle 
Heimspiele) — Simulation von kommenden Spieitagen — Rückblick auf 
vergangene Spieltage u, Tabellen — und und und . 
Zu bestellen unter CK 1001 R nur bei uns für nur 24,90 DM. 


Alle Programme für C 64 / C 128 auf Disk. Lieferung per NN/V-Scheck 
zzgl. 3,— DM Vers.Kosten. Bestellen Sie bei A. Kubicki u. M. Kochioefl 


KK-Soft, Sebastianstr. 6, 8315 Geisenihausen. 


Adressen (nur f. 128er):..39,500M Lernheifer 19,50 DM 
Akropolis, 9,50 DM Liga3.1 29,50 DM 
AlSIerm........ 14,50 DM Maschinenkurs (n. 128er).39,50 DM 
ASI Planet des Todes 14,50DM Master-Compressor V3.1..49,50 DM 
Bundesliga (nur f. 128er),19,50DM Mexico B& 19,50 DM 
Bundesliga Live. ......29,500M Moneytrans 64 29.50 DM 
Brieimarkenverwaltung...14,50 DM Moneytrans 128 (1. 12Ber).39,50 DM 
Castle... 29,50 DM DM 
‚Character-Generator 19,50 DM 

Chemie (nurt. 128er)......39,50 DM 

Chemiepauker......... ‚500M 

Chemie-Trainer.... 

N Rule The Worid....... 19,50 DM 
Cono's Factory.......... Sammlung 1-5, 7 fe 9.50DM 
Cosmic Meals.. Sammlung 6 (nur 128er)...19,50 DM 
Cup Leader... h Schacharchiv 39,50 OM 
Dis-Dis..... Seeweg nach Osten 19,50 0M 
Diskettenverwaltung Sex-Games 19,50 DM 
Disk-Manager (nur 128er) 9.500M Siggi’s Kabbala 19,50 DM 
Elektro 1... 5.000M Sprite Creator. 19,50 DM 
Fastword 9,500M Sprite Genie. 14,50 DM 
Geopoli. 14,500M Speiseplanerstellung 5,00 DM 
Grafik (nurt. 128er}.......19,500M SPEISEPLANERSTELLUNG 5,00 DM 
Great Master... 9,950M Stock-Jobber 

Hard-Copy 801 +..........19.50 DM 

Hacker 128 (nur 128er)...19,50 0M 

Knitfei 64 9,500M uLl 9,50 DM 
Krimistunde (nur 128er).. 9,50DM Videothek (nur 128er)......39,50 DM 
Latino 9.95 DM Wall Street (nur 128er) 9,50DM 


Kostenlosen Katalog ! 
24 Stunden automatische Bestellannahme: Tel.0 82 36/8 82 


Soft & Hardwarevertrieb Scheiba 
Talstr. 26 _ 8901 Dinkelscherben 


Ul’s GComputer- 


Spezialist für 
Hardwareerweiterungen und 
Zubehör 


Musik mit dem Computer — 

Vorbeikommen und Anhören 

Music Maker für C 64 99,— + Sound Expander 399,— 
Music Maker für C 128 118,— + Sound Studio 59,90 + 
Sound Sampler 270,— » Composer 120,— +» 
D.A.I.S.Y. Audio Digitizer 178,— 


Für Kurzwellen Amateure 


Bonito Superconverter mit Software 268,-- 
Zum Empfang und Senden von RTTY, Funkbildern etc. 
mit C 64/128 


Präsident-Drucker 6313 478,-- 


BF Anschließbar an alle Computer 


U. Peters » Kreuzsteinstr. 14 
8500 Nürnberg 
Ladenöffnungszeiten: Mo - Fr 13- 18 Uhr 
U-Bahn-Station Schweinau/Olgastr. 
Tel. (0911) 66 76 00 
Bitte Info anfordern! 


c64 Cass Disk 

Summer Games| 9,90/19,90 GreatEscape 
Paint Box 9,9 Eagles 

Thrust 90 Gobots 

West Bank 19,—/29,— NinjaMaster 
Wizball 34,—/46,— _ KAMPFGRUPPE 
Mag Max 34,—/46,— VIZASTARG4 
Hasdes Nebula 36,—/46,— VIZAWRITEG4 


C16 Über 220 versch. Pro. 
CSJGAMESI 29,-/39,— Int. Karate 
9,0 ACE(CI6/ +4) 
9,90 Terra Nova 
ACHTUNG! Der Sog könnte Sie erlassen, beim Laden und 
Speichern mit CSJ TURBO TAPE + AZIMUTHTAPE DM 29,90 
AMIGA 
A Ultima Ill 86,— 
\ Sindbad 129,— 
A IZA TheGuido. Thieves 89,— 
SOFTWARE ‚itter Ric 79,— 
Delux Video V1.2 298,— 
VIZAWRITE AMIGA 498,— Superbase (Dt.) 248,— 


CSJ COMPUTERSOFT JONIGK Riesenauswahl an Software 
An der Tiefenriede 27 sofort CSJ NEWS anfordern 
3000 Hannover 1 bitte Computertyp angeben 

Tel.Service 05 11/88 63 83 Händleranfragen erwünscht. 


Datum/Unterschrift 


Commadore Farbmonitor 1081 799,—: Commodore AMIGA 500 
Commodore AMIGA 500 + Farbmonitor 1081 
Commodore AMIGA 2000 2499.—: 2. Laufwerk für 2000 
Commodore AMIGA 2000 + Farbmanitor 1081 
PC/XT-Karte mit 544’ * -Lautwerk 1249,—: 2-MB-Aufrüstung 
AT-Karte mit 544° * -Laufwerk 1799,—; 20-MB-Festplatte 
Commodore PC-10 11 2149,—; Commodore PC-20 II 
Commodore SX-54 1449,—: Commodore C 128 D 
Computer Plus 4 199.—: Floppy-Disk VC 1551 
Computer Plus4 + Floppy-Disk VC 1551 
Farbmonitor Commadare 1802 499. —; Commodore 1901 
Grünmonitor Thomson (35 MHz, mät Ton) tür © 64/128 
Bernsteinmonitor Samsung MD-1255 H für Commodore 64 
Schwarzweißiernseher Samsung (auf Monitor umschaltbar) 
Akustikkoppler Dataphon S 21 d + Kabel + Diskette C 64 
Akustikkoppier Dataphon S 21/23 (300 oder 1200 Baud) 
Armbanduhr Seiko Wrist Terminal RC 1000 (kann vom C64 mit dem 
mitgelieferten Kabel + Terminalprogramm 1-\ ir. werden) 
Farborucker MCS801 449,—; Drucker M 1000 
Drucker 1526 449,—; Drucker MPS 803 + Traktortaufsatz 
Epsondrucker anschiußfertig an C 64/128 mit Görtlitzintert. 8426 
1X 800699,—; FX 800 1149,—: FX 1000 1419,—:; 10800 
LO 1000 2049,—; 102500 2719,—: EX 800 1519,—: EX 1000 
Epsondrucker anschlußtertig an AMIGA, PC, CPC oder Atari ST 
1X 800579,—; FX 800 1029,--: FX 1000 1299.—; LO800 
LO 1000 1929.—: 102500 2599,—; EX 800 1399,—:; EX 1000 
Stardrucker NL-10 anschlußfertigan 64/128 (dt. Version) 
ND-10 mit Centronics-Schnittstelle 
NEC-Drucker P6(dt. Version) 1199,—; P6Color 
P7 (dt, Version) 1599,—; P7 Color 
Schneider PC 1512 mit Schwarzweißmonitor + 1 Lautwerk 
PC 1512 mit Schwarzweißmonitor + 2 Laufwerke R 
PC 1512/Colorm./1 LW 1769, —; Colorm./2 LW 2199,— 
Versandkostenpauschale (Warenwert bis DM 1000,— /darüber): Vorauskasse 
(DM 8,—/20,—), Nachnahme (DM 11,20/23,20), Ausland (DM 18,—/30,—). 
Lieferung nur gegen NN oder Vorauskasse; Ausland nur Vorauskasse. Preisli- 
ste (Computertyp angeben) gegen Zusendung eines Freimumschlags 


CSV RIEGERT 


Schloßhofstr. 5, 7324 Rechberghausen, Tel. (0 71 61) 5 28 89 


Superpreise + Superpreise + Superpreise 
Amiga 500 1298,— Amiga 1000 1749,— 
‚Amiga 2000 2649,— Monitor 1081 849,— 


en: Sidecar 1649,— 

DELUXE Paint, DELUXE Video, DELUXE Print, jeProg. 229,— 
Commodore C64 Il 449,— Commodore C 128 549,— 
Floppy 1541C 449,— Commodore 1280 1129,— 
Monitor 1701/1801 498,— Monitor 1901 729,— 
CommodorepC 10ll 2598,— Commodore PC201l 3598,— 


Druckerparade + Druckerparade 
Panasonic 1080 549,— Epson FX-800 998,— 
Panasonic 1091 698,— EpsonFX-1000breit 1398,— 
Panasonic 1092 949,— Epson EX-800 1498, — 
Star NL-10 engl. 749,— EpsonEX-1000breit 1898,— 
StarNL-10m. Inter. 898,— EpsonL0800 1698,— 
Star NX-15 Breit 1298,— EpsonLQ-1000breit 2198,— 
NECP6 1598,— EpsonLQ-2500breit 2898,— 
NECP7 1998,— EpsonS0-2500 breit 3598,— 
NEC P6color 1998,— Epson HI-80 1349,— 
Disketten 5,25 Zoll No Name 108t.7,95 100$t.75,— 
Diskettenbox f. 100 Disketten mit Schloß nur 19,95 
Druckerpapier 2000 Blatt im Karton Sonderpreis 34,95 
Staubschutzhauben aus weichem Kunstleder für C64 all 10,— 
Fioppies 1541/50/70/71, Drucker MPS 802/803jenur 15,— 


Bachstr. 52, 7980 Ravensburg, 
ee Telefon 0751/26138 + 26497 


Zu der in RUN Heft ..., S. ..., erschienenen Anzeige 


gebe ich folgende Bestellung auf: 


Bitte ich um Information über das Produkt: 


Bitte schicken Sie mir [] Preisliste [ Katalog/Prospekt 


Bitte diesen Coupon direkt an die Firma zuschicken. 


9-Nadeldrucker SP-180 


M Druckgeschwindigkeit: EDV-Druck 
100 cps, NLO 20 cps 

m EPSON? FX kompatibel: SP-180 A 

EM Commodore? C64/C128 
kompatibel: SP-180 VC 

MB Inclusive Traktor 


9-Nadeldrucker SP-1200 


B Druckgeschwindigkeit: EDV-Druck 
120 cps, NLQ 25 cps 

I EPSON? FX und IBM®-Grafikdrucker Il 
kompatibel: SP-1200 Al 

EM Commodore?” C64/0128 
kompatibel: SP-1200 VC 

M Einzelblattschacht als Option 

MB Inclusive Traktor 


24-Nadeldrucker SL-80 Al 


BE Druckgeschwindigkeit: Letter Quality 
54 cps, EDV-Druck 135 cps 

I EPSON?LO 1500 und IBM®- 
Grafikdrucker Il kompatibel 

M Einzelblattschacht als Option 

MB Inclusive Traktor 


IBM ist ein eingetragenes Warenzeichen 

der International Business Machines Corporation 
EPSON ist ein eingetragenes Warenzeichen 

der SEIKO-EPSON Corporation 

COMMODORE ist ein eingetragenes Warenzeichen 
der COMMODORE Corporation 


SEIKOSHA (EUROPE) GMBH - Bramfelder Chaussee 105 : 2000 Hamburg 71 
Telefon 040/64 60 02-0 - Telex 211 331 seik d - Telefax 040/64 60 02-29 


Weitere Informationen: SASS Computer- Muitiprint In Österreich: In der Schweiz: 

Fachhandel MIKADO GmbH GÜSSOW GmbH Vertriebs GmbH Info Process GmbH Comp.-Peripherie GmbH AKTIV GmbH ERNI-COMPRO AG 

Versandhandel Wielandstr. 13 Stolper-Str. 2a Nordstr. 71-73 Gewerbestr. 4 Industriestr. 12 Scheydgasse 31 Fabrikweg 2 

Kaufhäuser 1000 Berlin 12 2000 Hamburg 73 6450 Hanau 7801 Buchenbach 8034 Germering A-1210 Wien CH-8306 Bruttisellen, Zürich 
wir 25 920.5324 49.63 »31.046/9734081 Tel. 06181/10930 Tel. 07661/811 Tel. 089/8410551 Tel. 3876380 Tel. 8331166 


Verkaufe Hardware 


HOMECOMPUTER FLOHMARKT 
15.+16.8. im Meerbusch-Büderich 
Bürgersaal. Jeder, der etwas anzu- 
bieten hat, kann mitmachen (Litera- 
tur, Zubehör, Ersatzteile usw.) Info: C- 
C Niep Tel. 0 28 45/2 72 60 


Verkaufe C64II + Floppy 1570 + 
Drucker MPS801 + Staubschutzhau- 
be + Anwendersoftware + Spiele + 
Bücher (Data Becker). Alles zusam- 
men DM 1000.—, Tel. 0 66 28/81 53 


Matrixdrucker für C64/128 PC, 100 
Zeichen/s, grafikfähig, DM 400; Data- 
sette für C64/128 PC DM 35; Bertges, 
Karlolingerstr. 31, 5500 Trier 

Verschenke Industriecomp.Relais- 
platinen (Steuern, Regeln C64, 116, 
16, 128)8 R. 42x Um, HFdicht m, Plan 
NP 600 DM zum Schleuderpreis v. 25 
DM + NN solange Vorrat! D. Müller, 
Rosenhügel 68, 5000 Köln 90 


-Fans: NIE MEHR AÄr- 
ger mit dem Basic V2. Über 100 zu- 
sätzliche Befehle mit dem Simon-Ba- 
sic-Modul für Musik, Grafik, Sprites 
usw, nur DM 40. Sonstiges. F.A., Fach 
15 50, 2990 Papenburg 1 


VERKAUFE NEC-P6 Mit Traktor, 
englischem und ausführlichem deut- 
schen Handbuch für nur 1400 DM!! 
Tel. 0 41 03/46 64 (öfter versuchen!) 


Verkaufe Citizen-Drucker MSP 10 
neuwertig, VB DM 800.—, Tel. 0 89/ 
93 7349 


VERKAUFE C116(64K) mit Schalter 
für 16K + Datasette + Basic-Kurs + 
Centronicsinterface VB 170 DM. Ger- 
hard Weber, Thüringerstr. 1, 8507 
Oberasbach, Tel. 09 11/69 67 18 


€ 64 Computersystem Verkaufe das 
gesamte System. Superpreise! Liste 
anfordem bei Günther Jehle, Hegel- 
str. 4, 7523 Graben-Neudorf, Tel. 
0 72 55/44 98 (ab 19 Uhr) 


SUPER C128 C128 + 1570 + Maus + 
MPS801 + ExosV3 + Modem für nur 
1450 DM. Tel. 0 93 65/22 89, Fuchs 
Harald, Schäfereistr. 8, 8709 Rimpar 
krr% 801 Akk% 
— Druckt dt. Sonderzeichen 

— Unterlängen z.B. 'g und j' 

— Hardwaremäßig, leichter Einbau, 
kein unnöt. Einladen! 

volle Kompatibilität bleibt! 

Keine Druckerverlangsamung 
Für jeden MPS-801!!! 

— Preis: schlappe 30 DM 

Info + Probedr. bei M. Bilger, 
A.-Br.-Str. 169, 7500 Karlsruhe 21 


CMB 64 MBA TOR/CW/RTTY 
Platine + Prg. + Beschr. DM 130,—. 
FAX Satelite Wetter Karte Platine + 
Prg. DM 30.—. Kopieradapter Data- 
sette zu Datasette, kein Kopierschutz 
wirksam DM 30.—. Bei Vorauszah- 
lung portofrei. Nachnahme DM 7.50. 
B.Th. v/d Pluym, Stellendamhof 66, 
NL-3086 ZB Rotterdamm, Ruf: 00 32/ 
104813708. «x *%* CBM 64 


Da 


st/87 
el 


ve nie > 2 


Wollen Sie kaufen oder verkaufen? Dann liegen Sie 
richtig mit Ihrem Angebot im RUNBOARD mit 
preiswerten Kleinanzeigen! Hier finden Sie alles 
rund um Ihren Computer. Wir berechnen für 6 Zei- 
len 5,— DM und für jede weitere Zeile 1,— DM. 
Benutzen Sie für Ihre RUNBOARD-Anzeige unsere 


Verkaufe: Plus/4, Floppy 1551, 
Super Farbmonitor, 40 Disks mit Pro- 
grammen, viel Zubehör und umfang- 
reiche Literatur: 900 DM (NP 1650 
DM). M. Beckmann, Haselweg |, 
8028 Taufkirchen 


Verkaufe Plus/4 1541, 1520, 2]. alt. 
1702 1% J. alt. 1570 8 Mon. 
alt. ScriptPlus sowie sonstige Soft- 
ss a Disk. komplett oder einzel 
Preis VB. Dietmar Winhold, Rhönstr. 
24, 6490 Schlüchtern 


Hardware!!! Verkaufe meine gesam- 
te Hardware wie z.B. RS232 Schnitt- 
stelle oder Betriebssystem und Mo- 
dulplatinen. Anfragen an: 07805/ 
17 80 (Achim). 


Endlich längeres Serialkabel für C64 
und etc. zum Drucker, Floppy. 2m 
7,95 DM, 5 m 13,95 DM, 10m 19,95 
DM, C16 109 DM, C64 379 DM, Moni- 
tor bernst. 219 DM (neu) 0 60 56/32 66 


C-16+64K, PC 610+128K mit Top- 
programmen, Datasette, Monitor + 
Extras für 1000,— DM abzugeben. In- 
fos bei Ingo Mattes, Ringelbachstr. 
178, 7410 Reutlingen 1, Tel. 071 21/ 
2707 23. 


1750 RAM- Modul f. C128 
in original Verp. mit Disk und Anleit. 
3 Mon. alt. Preis DM 220.—. Auch 
Tausch gegen and, Hardware. Joh. 
Ebner, Heckenrosenweg 11, 8900 
Augsburg, Tel: 08 21/46 56 10 


Suche Hardware 


HOMECOMPUTER FLOHMARKT 
15.+16.8. im Meerbusch-Büderich 
Bürgersaal. Jeder, der etwas anzu- 
bieten hat, kann mitmachen (Litera- 
tur, Zubehör, Ersatzteile usw.) Info: C- 
C Niep Tel. 0 28 45/2 72 60 


Neu CNC-Software {. C54/128. Neu 
CNC-Simulation 8l0T DM 100.-. 
CNC-Kurs DM 70.—. Info u. Verkauf: 
Newware Softwarestudio, Postf. 45, 
A-5620 Schwarzach 


Suche defekte! C54 zahle DM 100.—, 
Floppy 1541 zahle DM 150.—, J. Bach- 
müller, Tel. 0 77 46/25 34 

Kaufe gebrauchte aber intakte VC- 
20/64/128/128D/AMIGA/1541/ 
1570/71 und div. Zubehör. Angebote 
an Hilbich, Hoscheiter Str. 12, 5107 
Simmerath 2, Tel. 02 73/62 18 


Suche 1541 o. 1551. Biete 200 DM. 
Auch ohne Gehäuse, muß aber lau- 
fen. Verk. BUSCH-Elektron.-Kästen 
+ RUNs+COMPUTE MITs!! BUSCH- 
Kästen: 2070+2073 = 230 DM!!, Tel. 
0 21 36/18 72. V. C16-Spiele 


Suche Koala-PAD das noch gut funk- 
tioniert. Angebote an Erik Böttcher, 
Gneisenaustr. 3, 5160 Düren, Tel. 
0 24 21/7 32 02 (ab 19 Uhr) 


Vordrucke. In diesem Heft finden Sie unsere Karte 
auf Seite 131 Für weitere Informationen können Sie 
Marianne Gad anrufen, Tel. 0 89/3 60 86-201. 


Anzeigenschluß der nächsterreichbaren Ausgabe 
ist Mittwoch, der 12. August 1987. 


Suche Schnittstelle Vic 1011 (RS 232/ 
V24) f£. VC20. Angebot an Bernard 
Hennequin, Tel. 09131/38674 (ab 
18 Uhr) 


Suche preiswert: C128+Floppy 
1571, evil. 80-Zeichen-Farbmonitor im 
Piz-Bereich 7. Tel. 0 74 57/21 29. 


Verkaufe Software 


CNC auf C64 Gebe Drehsimulation 
+ DFÜ + Astrologie + Astronomie- 
Software ab. Info gegen frank. Brief- 
umschlag bei: Bernd Janzen, Meßkir- 
cherstr. 3, 7795 Kreenheinstetten 


128 = DM 40 Superbase 
128 = 75 DM zus. 110 DM oder 
Tausch gegen Printfox Basar + Cha- 
racter Boulder Dash Construction = 
25 DM Game-Maker SF-Library = 30 
DM Eprom 27512 = 15 DM. Tel. 
02 01/27 21 66. 


Gratisinfo über Programm für C64/ 
C128-Besitzer. Einfach Postkarte sen- 
den an Friedrich Neuper, 8473 
Preimd, Postfach 72. Auch Anfragen 
aus dem Ausland sind erwünscht. 


SILVER-REED EXP 500 Kompl. An- 
passungen der RS 232-Schnittst, an 
„Textomat” und „Protext* (incl. Fett u. 
Unterstr.) f. 20 DM je Disk bei: ].P. 
Graf, Postf. 44, 7806 March 


C 64 — Barwert VO — C 128 Berech- 
nungen incl, Umrechn. in Wertein- 
heit u. Beiträge; 3b,c VAHRG; format. 
Druckerausgabe gleich f. Akten: 75 
DM. Info: Dr. Graf, Postf. 44, 7806 
March 


ACHTUNG SUPER-Etikettenverar- 
beitung und hervorragende Bundes- 
ligaverwaltung! Fenstertechnik! Top- 
Design! Info bei Gunnar Habitz, Heid- 
lerchenstr. 2, 2820 Bremen 71, PRO- 
FESSIONELL + QUALITÄT 


FiBU £. C 128 Cass.-Version Umsatz- 
steuer-Voranmeldung JournalHaupt- 
buch — Summen- und Saldenliste- 
.Konten-Entwicklung. W. Depping, 
Mönkehütte 31, 4923 Extertal (Info ko- 
stenlos) 


HOMECOMPUTER FLOHMARKT 
15.+16.8. im Meerbusch-Büderich 
Bürgersaal. Jeder, der etwas anzu- 
bieten hat, kann mitmachen (Litera- 
tur, Zubehör, Ersatzteile usw.) Info: C- 
C Niep Tel. 0 28 45/2 72 60 


C64/128-FIBU-Programm 
TEV-Kontenplan, mit Handbuch DM 
139. Handbuch (Info) gegen Porto DM 
3.— Andreas Brandt, Magistratsweg 
79, 1000 Berlin 20, Tel. 3 66 93 02 


Lern- u. Trainingsprogramme für 
C64, 628 Amiga/IBM Tel. 06221/ 
47 47 11 oder 30 35 55 


Bewährte Anwenderprogramme 
Kontokontrol für C64 — Terminkalen- 
der für C64. Paetsch, Atenser-Sand 
5b, 2890 Nordenham — Info: Freium- 
schlag 


Textomat, Datamat u. weitere Pro- 
gramme u. Bücher für C 64, Textomat 
Plus, Superbase für 128 PC, Liste ge- 
gen Freiumschlag; Beriges, Karolin- 
gerstr. 31, 5500 Trier 


Amiga JUICE 
Das Amiga Magazin auf Diskette! 
AmigaJUICE ist Public-Domain und 
jeder kann es aktiv mitgestalten! Für 
weitere Fragen + Bezugsadresse: 
Tel. 051 03/21 46 


Verkaufe für C128 leistungsfähiges 
Vokabelprogramm (wahlweise 
deutsch/engl., engl./deutsch) für nur 
12 DM!!! Michael Koch, Am Biberfeld 
15, 8855 Itzing 


SCHRIFTSETZER C64: erstellt eige- 
ne Zeichensätze incl. Einbau in eige- 
ne Prg., nachträgl. Editierung, Spie- 
gelung Drehung 90/180 uvm. Info + 
Disk (20.—) G. Walter, Fr.-Br. Str. 10, 
6713 Freinsheim 


AMIGA SOFT Habe topaktuelle Soft- 
ware, teilweise mit Anleitungen — 
AMIGA SOFT — Michael Juchem, 
Bleiche 22, 65 Mainz 1 
840 Pokes für nur 10 DM!!!! 540 Sup- 
weissen: + 300 Prg.pokes. Dieses 
richt vn. Leben beim Spie- 
len! hein an ©. Lindhoff, Schelmen- 
graben 7, 6120 Michelstadt. 
4000 englische Vokabeln!!!! enthält 
VOKABELPROF und fragt diese 
wahlweise Engl-Deut. oder D.-E. ab. 
Disk nur 25 DM. 25 DM an C. Lind- 
hoff, Schelmengraben 7, 6120 Michel- 
stadt 


% versch. Rechenprogramme ent- 
hält Matheprof. Alles menügesteuert 
auf Disk für 25 DM! Für Schule, Beruf, 
usw. 25 DM an C. Lindhoff, Schel- 
mengraben 7, 6120 Michelstadt 


C128/C64/C16/ +4/VC20 
FREESOFTWARE Liste gegen Rück- 
porto. Computerclub Ruhrgebiet c/o 
Awo Jugendwerk, Pferdemarkt 7, 
4300 Essen 1 


„MAGICCUBE“, der legendäre 
Zauberwürfel f. C64/128 DM 50.—. 
Kreuzworträtselprogramm DM 40.—. 
Info u. Verkauf: Newware Software- 
studio, Postf. 45, A-5620 Schwarzach 


Verkaufe Software 
Verkaufe Software für den 64er. An 
Dieter Boger, Luisenstr. 95a, 5200 
Siegburg 
DEUTSCHER ZEICHENSATZ Für 
C61+C116+CPlus/4l!! Kassette oder 
Diskette gegen 10 DM-Schein bei An- 
dreas Beitinger, Sonnenstr. 8, 8951 
Frankenried 
Tau Ceti — Amazon — Solo Flight — 
u.a. Software günstig zu verkaufen. 
Ebenso 64er, RUN, INPUT 64, Bü- 
cher. G, Jehle, Hegelstr. 4, 7523 Gra- 
ben-Neudorf 


64/128 UTILITIES die unentbehrli- 
chen Helfer. SONDERDISKETTE mit 
15 starken Progr. gegen Einsend. von 
lO DM beim DT.FREE-SOFTW. 
COMP. CLUB, Auf der Heide 18, 
3008 Garbsen 1 


C64 CLUBDISKETTE Juli/87 C128 10 
ausgesuchte FREEWARE Progr. + 
Bildschirmzeitg. + CLUBINFO für 10 
DM. DT.FREE-SOFTWARE COMPU- 
TER CLUB, Auf der Heide 18, 3008 


Garbsen | 


C 128 C 128 C 128 C 128 C 128 
Video-Datei für ca. 1500 Filme DM 
15,— Nur Vorauszahlung. Bitte 
Video-System angeben. Viktor Jung, 
Josef-Selig-Str. 20, 8060 Dachau, Tel. 
0.81 31/2 08 69 

PUBLIC DOMAIN SOFTWARE 
FÜR C64/C16 AUF DISK/TAPE Pro- 
bedisk/Cass geg. 10 DM bei: H. Häh- 
ne, Postf. 22.034 ', 5650 Solingen 
Verschenke wegen System 

meine Software. Comp.Pro = 10DM, 
Ligthpen = 19 DM, Disketten = 30 
Pf/Stck. Liste gegen 1,10 DM Rück- 
porto in Briefmarken. Bei PLK Nr. A 
000339, 3410 Northeim 1 
Hallo, Freaks Anfänger (C 64) sucht 
Top-Games zum Kaufen. Listen an 
Neugebauer, Schneggstr. 3, 8050 
Freising 


Ai 


Amiga Public Domain Disks Info- 
Disk = 10 DM/Beschr. der Prg's 
über 250 Screens/wird durch | bzw. 
2 Disks ersetz/AIT-User. M. Roenn, 
Ziegeleiweg 32, 3257 Springe 4, Tel. 
0 50 41/82 29 ab 19 Uhr 


EROTIKA außergewöhnl. Adventu- 
re aufregende Bilder, 3 Disk, C64, 
deutsch, 29.95 + NN, EROTIKA II — 
19.95, beide 39.95. H. Schmidt, Loui- 
se-Schröder-Str. 7, 3000 Hannover 61, 
auch Infos! 


C 64 HALLO FREAKS C64 

Habe Spitzensoftware alt & —. zu 
Gauntlet, Gunship, World G. 

Ruft heute noch an!! Tel. 0 76 28/88 7° 79 
(Roland verl.) Für C 64 zu Spottprei- 
sen 


LOTTO-ASS-128 + Toto-Ass-128 + 
Datei-Ass-128 für C128/80 Z. Disk Aid 
30 DM. Kurzinfo gegen Rück! 

von Peter Hielscher, Am Wall 2 
4401 Saerbeck 


C64 Lohn-/Eink.-Steuer 86/87 Spe- 
ziell für Lohn- u. Gehaltsempfänger. 
Nicht für Beamte. Nur auf Diskette 
DM 20.—. H. Peters, Nordstr. 46, 4730 
Ahlen 


DISKSTICKER druckt Printshop- 
Zeichen in versch. Größen, kann 
auch Bilder aus Printshop, News 
room, (C64) in Text übernehmen. 
Gratis Info bei Hoffmann R., Mondor- 
ferstr, 9, L-5552 Remich 


Verk. C-16/Plus 4 Spiele für 5-15 
DM. z.B. Kant 5 DM, Wimbledon 10 
DM, Konami’s coin-op Hits 15 DM. FB 
Boxen 12 DM/Informationen bei H. 
Züchner, Tel. 0 23 71/4 28 69 nur Ori- 
ginale + nur Originale 


Suche Software 


SUCHE Spiel „Elite“ (orig.) mit aus- 
führlicher Anleitung. Angebote an: 
(schrift) Helge Sczepanek, Am 
Frohnacker 13, 97a Landau 22 


Suche dt. Anleitung für Printfox, 
Printmaster, Printshop, Bard's Tale u. 
Frontmaster. Angebote an: Olaf Bey- 
er, Wiener Str. 27, 6000 Frankfurt 70 


Suche für C-128 und Amiga Program- 
me aller Art. Angebote an: Rudolf 
Lex, Herzog-Otto-Str. 4, 8200 Rosen- 
heim 

AMIGA-ÖSTERREICH Suche Kon- 
takt zu Anfängern — Fans — Profis — 
Usern Hard +Software-Tausch/Ver- 
kauf/& Kauf. Noch Mitglieder ge- 
sucht! Mario Sepp, Roseggerstr. 4, 
A-6020 Innsbruck, Antworte 100% 


Amiga Freak sucht: Software Public- 
Domain (Software) und Kontakte zu 
anderen Amiga Freaks aus der gan- 
zen Welt. Christian Maczek, Erla- 
cherstr., 9303 Wittenbach/Schweiz 


2000 Amiga 2000 Amiga 
Suche billig Anwender-Software für 
Commodore Amiga 2000. Tel. 02 51/ 
23 18 35 Mo—Fr. 13.30— 14.45, 19-22 
Uhr oder schrift. T. Geisbe, Kämtner 
Str. 45, 4400 Münster 


Suche dringend! preisw. CNC-Simu- 
lationsprog. (Fräsen) für C64 mit Be- 
schreibung. Manfred Fe Am 
Nordpark 10, 5620 Velbert |, Tel. 
0 20 51/8 14 16 


Suche Space-Station Disc. oder Kas- 
sette für VC-64. Meldet euch bei Jas- 
min Moor, Bleichematt 7, CH-5603 
Staufen 


Home-Computer Flohmarkt 
15.+16.8. im Meerbusch-Büderich 
Bürgersaal. Jeder, der etwas anzu- 
bieten hat, kann mitmachen. (Litera- 
tur, Zubehör, Ersatzteile usw) Info: C- 
C Niep, Tel. 0 28 45/2 72 60 


Verkaufe Sonstiges 


256K, Halb bestückt = 75 DM. CP- 
80X, ESC/P Standard, direkt an- 
schließbar an C64/128 = 480 DM. 
Speeddos 40TR = 65 DM, EXOSV3 = 
25 DM, Einbau und Änderungen von 
Betriebssystemen = 25 DM. 0201/ 
27 21 66 


Verk. Amiga Erweiterung 1050; 
Final Cartridge II; Orig. Spiele, Data 
Becker Bücher, alle 64er, 128 — Prei- 
se nach Vereinbarung. Tel: 070 31/ 
2734 16 


An alle Commodore Freaks: C116 fa- 
brikneu 100 DM. Sonstige Soft- und 
Hardware für C64, VC20 und C16/ 
116. Katalog bei ENO-Soft, Pappelal- 
lee 28 oder Heideweg 17, 3105 Fass- 
berg. Solange Vorrat! 


Home-Computer Flohmarkt 
15.+16.8. im Meerbusch-Büderich 
Bürgersaal. Jeder, der etwas anzu- 
bieten hat, kann mitmachen (Litera- 
tur, Zubehör, Ersatzteile usw). Info: C- 
C Niep Tel: 0 28 45/2 72 60 


Verkaufe RUN-Heft 11/84 die RUN- 
Jahrgänge 1985 + 86 in Sammelbo- 
xen sowie die 64er-Hefte 10+ 12/84. 
Andr& Zander, Mainzer Str. 4, 1000 
Berlin 31 


ROLLENSPIELER Ich helfe Euch 
bei „Below the Root“, bei „Ultima 
3+4“, bei „Bards Tale 1+2*. Info ge- 
gen Rückporto bei: Postfach 2053, 
4057 Brüggen 2 


WETTER WERTEN, 


PRINTFOX-ERWEITERUNGEN 
Mehrere neue Zeichensätze, massig 
neue Grafiken. Info gegen Rückporto 
bei: Postfach 20 53, 4057 Brüggen 2 
PRINTFOX-ERWEITERUNGEN 
RUN-Hefte zu verkaufen gegen 
Höchstangebot. Liste zur Zeit in Ar- 
beit. Anfragen mit Rückporto (wenn 
möglich) an: A.T. Bühler, Mühlrain 
18, 6330 Wetzlar 1, Brd. suche Prg f. 
poln. Freund. 


NEWSROOM Deutsche Anleitung 
mit allen Bildern 15.— DM. Sämtl. Bil- 
der (jetzt mit Clips Vol. 31) zus. 10.— 
DM. Oliver Tresselt, Geulenstr. 98, 
4040 Neuss 1, Tel. 0 21 01/54 47 63 


Für NEWSROOM Deutsche Anlei- 
tung 44 S. (A4) mit Bildern (Clip-Art S. 
1+2) für 064/128, APPLE, IBM. 1A- 
Qualität. Gratis dazu ca. 200 Spiele- 
pokes für C64. Preis 20.— inkl. Porto, 
per Verrechn.-Scheck oder bar. W. 
Neumayer, Rüppurrer Str. 94, 7500 
Karlsruhe 1 

Für FLIGHTSIMULATOR I Deut- 
sche Anleitung 40 S. (A4) + 4 Flugkar- 
ten (A3) mit Koordinaten aller 80 Flug- 
plätze. Gratis dazu ca. 200 Spielpokes 
für C64. Preis 20.— inkl. Porto, per 
Verr.-Scheck oder bar. W. Neu- 
ze: Rüppurrer Str. 94, 7500 Karls- 

e 


Für PRINTFOX Zusätzliche Grafik- 
bilder und 25 neue (selbsterstellte) 
Zeichensätze auf Disketten. Gratisin- 
fo bei W. Neumayer, Rüppurrer Str. 
94, 7500 Karlsruhe 


Tausche Peripherie 


Flohmarkt 

15.+16.8. im Meerbusch-Büderich 
Bürgersaal. Jeder, der etwas anzu- 
bieten hat, kann mitmachen (Litera- 
tur, Zubehör, Ersatzteile usw). Info: C- 
C Niep Tel: 0 28 45/2 72 60 
Tausche neueste Amiga-Topsoft- 
ware & Anleitungen. Bitte Listen an: 
Stevens Dirk, Langdorpse Steenweg 
105, B-3220 Aarschot (Belgien) 
Suche zuverlässigen Tauschpartner 
C64, Liste an E. Hildmann, Zillertalstr. 
59, 8000 München 70, habe ca. 500 
Top-Games, antworte garantiert. 


Epson RX80FT mit Centronics Inter- 
face 350 DM (ohne 300 DM). Orig. 
64er Disketten 11/84, 12/84, 1/85, PN 
85, 6/86 je 5 DM. Suche Diskettenver- 
waltungsprogr. Tel. 0 69/7827 18 ab 
18 Uhr. 


DACG — Der tt Wir 
bieten: Informationen, Software, Kon- 
takte, Einkaufsvorteile, _Clubzeit- 


schrift! Kein Mitgliedsbeitrag! Info 
bei: DACG, La-Bazoge 342, D-2811 
Martfeld — DACG — 
Home-Computer Flohmarkt 

15.+16.8. im Meerbusch-Büderich 
Bürgersaal. Jeder, der etwas anzu- 
bieten hat, kann mitmachen (Litera- 
tur, Zubehör, Ersatzteile usw), Info: C- 
C Niep Tel: 0 28 45/2 72 60 


Hacker! Superinfos (DFU)! Kein Bla- 
bla, sondern knallharte Fakten. Kom- 
plett 20.— ee). Heigl, Postfach 
4 25, A-4010 Linz 

DRAG ON = die Printfoxzeitung!!! 
Grafiken, Zeichensätze, Tips & Tricks 
uvm. Probeexemplar 4.— DM bei T, 
Korsch, Esmarchstr. 120, 2000 Ham- 
burg 50. Achtung: Alles auf Selbstko- 
stenbasis! 

Neu Neu Neu Neu Neu Neu 
Neue Mailbox in Hamburg, Tel. 0 40/ 
7009592 Parameter 300/7/n/l 24 
Std. Online. Ruft doch mal an! 
section 9b sucht und tauscht, aber 
nur Spitzenprogramme für den C64, 
Plk033583c, 8000 München 32. 
Holländische C-16 und Plus/4 Grup- 
pe sucht Kontakt mit deutschen C-16 
Gruppen. Für mehr Informationen: 
SCZN, Hendrik Druckerstraße 38, 
NL-5652 R] Eindhoven/Holland 


Suche Disketten 


Flohmarkt 
15.+16.8. im Meerbusch-Büderich 
Bürgersaal. Jeder, der etwas anzu- 
bieten hat, kann mitmachen (Litera- 
tur, Zubehör, Ersatzteile usw). Info: C- 
C Niep Tel: 0 28 45/2 72 60 
SUCHE Bard’s Tale Pfuschdiscount 
(schon eingetippt und auf Diskette 
erg aus RUN Ausgabe 5/ 
87. Zahle gut. Meldet Euch bei Con- 
sti, Tel. 083 35/81 00) 18—20 Uhr!!! 


Ab sofort 
nehmen wir 
zur 
Bezahlung 
von 


RUN-Board- 
Anzeigen 


keine Schecks 


mehr 
entgegen. 
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GEWERBLICHE 
GELEGENHEITEN 


Zählt für Sie jeder Millimeter? 

Als Geschäftsmann für wenig Geld in RUN 
präsent sein. 

Und so wird es gemacht! Schicken Sie uns Ihren 


Text mit der genauen Firmenanschrift. Pro ange- 
fangener Zeile (1 Zeile = 33 Anschläge) berechnen 


wir DM 7,— zzgl. ges. MwSt. Sie können Voraus- 
kasse per Scheck leisten; wir schicken Ihnen aber 
auch jederzeit eine Rechnung. Weitere Informatio- 
nen gibt Ihnen gerne Marianne Gad, Tel. 089/ 
3 60 86-201. Anzeigenschluß der nächsterreichba- 
ren Ausgabe ist Mittwoch, der 12. August 1987. 
Nützen Sie die gewerbliche RUN-Gelegenheit! 


Biete an Hardware 


5.0... 2 ZZ m; 


EGRO ELEKTRONIK 

die Firma im Grenzland 

Auszug aus unserem Lieferangebot: 
IBM-komp. PC ab 1095,—DM 
DruckerERGO 1802/s(DELA) 666,—DM 
Disketten 1D5.25 Zoll 10St 17,50DM 
Disketten 1D3.5Zoll 10St 2,175DM 
EPROM 2764 7,45DM 
EPROM 27256 9,45DM 
6526 19,%9DM 


Aktuelle Tagespreise erfragen! 
Weitere Bauteile ab Lager 

REX Artikel ab LAGER lieferbar 
Aktuelle Preisliste anfordern 


ELEKTRONIK Groß GbR 

Rathausplatz 6 

5120 Herzogenrath 

Tel: 0.24 06/70 01 TX 8 329 951 
BELIZE I I 


-64 KRAM für C16/116 + Schalter 
Bausatz 47 DM 
inkl. Umbau 69 DM 


Nähere Infos bei: MP-Computers 
Karl-Weiß-Str. 19, 8412 B’feld 


MIDI-Interface für C64 89,— DM 
Info: Fa. Altmann 089/311 5458 
Käuzchenweg 2, 8000 München 45 
C64 C128 VC20 User Achtung! 
Lichtgriffel mit Programmen und dt. 
Anleitung nur DM 49,— Versand ge- 
gen Scheck/Nachnahme. Fordern 
Sie unseren kostenlosen Commodo- 
rezubehörprospekt an. Firma Klaus 
Schißlbauer, Postfach 11 71G, 8458 
Sulzbach, Tel.: 09661/6592 bis 21 
Uhr. Sonderaktion: Legen sie Ihrer 
Prospektanforderung DM 10,— bei. 
Sie erhalten 10 Superprogramme auf 
Kass. od. Disk für C64/C128. 


Münchner Computer Blitzversand 
Commodore C 128/D DM 1278,— 
Commodore C16/64K DM 230,— 
Floppy Disk VC 1551 DM 393,— 
StarNL10 DM 748,— 
Compiler C16/64/128ab DM 148,— 
Tel.: 0 89/68 82 26 

Verkaufe: *FAKTUSTAR 64/128* 


Rechnungen / Angebote/ Kassen- 
buch/Lager + Leistungsdatei/Inven- 

tur u. Adressendatei. Für C64 DM 
65,—; C128 (80 Z) DM 95,— Informa- 
tion kostenlos. TELEFON 06162/5903 


Biete an Software 


! Hallo Schweizer Computer-Leute ! 
Software and Accessories 
Günstige Einkaufsquellen/Program- 
mierer gesucht. 

Info bei MARCO Moor, Postfach 41 
CH-5603 Staufen 


SUCHEN LITERATUR ÜBER 
IHR COMPUTERSYSTEM? Dann 
sollten Sie unseren ausführlichen Ka- 
talog anfordern. Auch ausländische 
Titel im Angebot. Bitte System ange- 
ben. VVM, Brombeerweg 10, D-5900 
Siegen 31 


C64 100-fach bewährte Programme C128 


BAUFINANZIERUNG, Bsv, Lv, Hyp DM 129 
LOHNST/EKST86.87, alle Eink DM 69 
VEREINSDATEI Listen, Lastschr DM 9 
FINANZBUCHHALTUNG komfort DM 8 
SONDERAUSGABEN+ZAHLUNGSPLAN DM 25 


INFO: KLAUS HEIN, SALZSTR. 28A 

8950 KAUFBEUREN, Tel. 083 41/8 1357 

Der Software- und Zubehör-Versand 
WBEERBENEKRERBERNERBEE 
M Wir liefern neue Software für M 
M Commodore C-16/C-116/PLUS 4 M 
H C64/C128/AMIGA, Schneider u. + 
w_, Atari zu Preisen. vB 
w Liste anford. bei BERLAU-SOFT g 
M Postfach 14 15, 2150 Buxtehude 

EBUNNEHHEREMERESSERBE 


Der FIBU für 
C64/C128. Info gegen Rückporto 
oder Demodisc f. 15 DM. Gramatzki 
Ritterlandweg 28, 1000 Berlin 51, Tel 
030/4 92 64 34 


* COMMODORE BUSINESS x* 
C64/C128 FIBU ab 99,— 
C64-Kunden-/Lief.Buchh. 69,— 
C64/C128 — STAR TEXT/-DATEI 
Katalog DM 3.—, Fa. Lücker/RU 
Rich.Wagnerstr. 71, 6239 Kriftel 


C64 — Software zu Minipreisen 
Anwenderprogr., Tools und Spiele 
Katalog gegen 80 Pf. von SF-Soft, 
Mühlenweg 7, 3401 Seulingen 


w DISKETTEN in. Gar. a 
m 5YZoll, 48tpl, DM0,81 2D 0 
m 3%zZoll,135tpi, DM2,701IDD = 
m 3%Zoll, 135tpi, DM2,952DD m 
m 3ZollMarkendisk. DM 6,802CF 
M Allgem.Austro-Agent.Ringstr.10 
m D-8057 Eching, Tel. 0 81 33/61 16 


* Software auf Disk für C64 «* 
Adventure- und ! 


AIT — Amiga Idealisten-Team — AIT 
Public Domain zum Superpreis. Alles 
von: Fish, Faug, Panorama etc. 10 Disks 
= 60 DM, 30 Disks = 170 DM. Info-Disk 
mit Beschr. aller Prg's (über 250 Bild- 
schirmseiten) = 10 DM Vorkasse. Wird 
mit 1 bzw. 2 Extra-Disks verrechnet/be- 
rechtigt zu Sonderpreisen bis runter zu 5 
DM pro Disk/M. Rönn, Ziegeleiweg 32, 
3257 Springe, 0 50 41/82 29 
Plus4/C16/C64-Lernprg. Techn. 
Mathe Schulanw. u. Grafik f. Schule 
+ Beruf, Zahntrieb-Hydr/Pneum.-Fe- 
stigk. E-Techn. Vokabeln-Bruchrech 
Dreieck Katg. 1DM-Briefm. Comp. 
Typ angeben! A. Ristau, Peetzweg 9, 
3320 Salzgitter 1 


62 CM Aususvar 


Vereinsprog. 100% Maschinenspr. 
kompl. Stat., Buchf., Text, BEinz 
900 Mtgl 98DM 
900 Mtgl. 128DM 
1800 Mtgl.168DM 
Fa.K.-H. Weiß, Aktienstr. 170 
4300 Essen 11, Tel. 02 01/67 54 49 


“r%* CHART-CONTROL “rr* 
#* BAR-CHARTS P&F-CHARTS DEPOT « 
%* Autom. Kursabfr. d. VTS-Datenbank « 
* INFO VTS GMBH 7820 T.Neustadt « 
* Pf. 1262(c) Tel. 07651-33 55/33 66 * 
*%*%*%* CHART-CONTROL #xx%* 


HIRES-GRAFIKEN schwarz/weiß 
— im HI-EDDI-Format — 
Musterdisk mit 20 Bildschirmen 


für 5,— DM einschl. Versandkosten 
Scheck oder Marken an 
© DALLDORF-SOFT @ H-H. Vollmer 
Zangengasse 9, 1000 Berlin 26 


Amiga 500/1000/2000 Public Do- 
main: Ausführlicher Gratiskatalog 
bei: PD-Soft, Pf. 359, 4290 Bocholt 


Lohn + F. CBM 
64 und andere z. vk. Info + Demodisk 
von F. Spiess, Turbinenstr. 4c, 6800 
Mannheim 31, Tel.: 06 21/72 15 15 


B mmAufgepaßt und zugefaßt: mm 5 
m SCREEN-LIGHT (Disk) 49,— DM g 
w Profitool für Laien. Diverse An- M 
5 wendungen: von Actiongrafik — M 
M Zeichentrickfilm. Hardcopy 5 
M SPRITE-LIGHT (Disk)..89,— DM 5 
m Von Fachzeitungen sehr gut be- g 
® urteiltes Grafikanimationsprg. 8 
M Info = Rückporto, Versandk. = M 
M 3—. W. Zunker & Uwe Hassepaß 
B G.b.R., Post. 62 07 26, 1 Berlin 62 - 
VC 64/128 


| __ Verschiedenes | 


Experimentieren Sie gerne? 

Wir liefern Chemikalien für Hobby 
und Mikroskopie, auch in Kleinmen- 
gen und ohne Mindestbestellwert. 
Fordern Sie bitte unsere umfangrei- 
che Preisliste CK gegen 80 Pf. Rück- 
porto an. OMIKRON-Chemie, Markt- 
platz 5, 7129 Neckarwestheim 


Guten wie im Schlechten. Wer 
Vorbild ist, braucht keine 
zweifelhaften Druck- 
mittel. Psychischer 

Terror ist destruktiv. 


Befehlen- 
heißt oft quälen! 


Der wunde Punkt! 
Kinder ahmen vieles nach - im 


WALTON MASTERS, MÜNCHEN 


Konstruktiv ist: ein Kind ver- 
stehen und nicht immer auf 
Recht bestehen. Wer in 
unserem Land etwas für 
Kinder tut, tut das 
Beste für die Zukunft. 


Fragen Sie uns - wir helfen weiter. Helfen 
auch Sie mit - durch Ihre Spende: PSchAmt 
München, Kto-Nr. 440 809. 


Deutsches Kinderhilfswerk e. V 
Langwieder Hauptstr. 4, 
8000 München 60. 


Das Deutsche Kinderhilfswerk e. V. dankt für die kostenlose Einschaltung dieser Anzeige. 


*%* C-64 Eprombrenndienst * * 
Wir brennen Ihnen Ihre Software auf 
Eprorm. Bitte fordern Sie unsere Un- 
terlagen an. 

krArArCchI Software Kakr 


Sky Runner, Tarzan je DM 23.— 
Deactivators DM 23.— 
The Way ofthe Tiger DM 23.— 
Thai Boxing DM 23.— 
Tronic DM 3.— 
kk%% Amiga-Software kur % 
Cruncher Factory, Space je 
Battle, Demolition, Flip 27 
Flop, Phalanx, Challenger DM 

phoon, Quiwije 53.— 
Delander ofthe Crown 75.— 
DejaVu, Sindbad je 75.— 
Akkk% Amiga Akku 
Amiga 500 1279.— 
Diskettenlaufwerk 449. — 
eine 

Herbert Müller 
Dorfstraße 1 


8852 Rain-Unterpeiching 


Biete Soft- & Hardware für C 64 u. C 
128. Info gegen DM 1,— in Briefmar- 
ken von: Softwareversand M. Lang, 
Im Langen Scheerbaum 13, 6551 Hak- 
kenheim 


EEE 
Elektr.+elektronische Geräte, 
Bauelemente + Werkzeuge 


ELECTRONIC VON A-Z 7 


Stresemannstr. 95 - Berlin 61 ” 
Telefon (030) 26 10.41 
Van ge 


Benützen ante für 
eilige Anzeigen 
unseren 
Fernschreiber 
5 215 350 comw d 


AZ) 


MICHEL-Fehl- und Bestandslisten- 


programm — bitte fordern Sie aus- 
führliches Informationsmaterial unter 
dem Kennwort „Katalog auf Disket- 
te“ beim Schwaneberger Verlag, 
Muthmannstraße 4, 8000 München 45 
an. 


Vertriebspartner 
für den Vertrieb unserer 
Print Shop Icon-Disk 1 und 2 


Software Studio Plieth, 5000 Köln 80 


Berg.Gladb.Str. 696, 0221/6802868 


EINTIPPHILFE 
für C64/PC128! Imaliges Programm 
erleichtert Eintippen um 50%!! Nähe- 
res gg. Rückumschlag (80 Pf.) bei: 
Robert Pieroth, Postfach 1436, 6052 
Mühlheim 


Service | 


Commodore-Reparatur 
CSS, Peiner Str. 170, 33 BS, (0531) 51015 


Anzeigenschluß 


für die RUN 10/87 
ist der 


12. August 1987 


Bitte schicken Sie 
uns rechtzeitig Ihre 
Druckunterlagen zu. 


Na, informieren Sie mich, ı 


1 wie ich gemeinsam mit Greenpeace zur 


H Erhaltung unserer Lebensgrundlagen 


1 beitragen kann! Schicken Sie mir das Infor- 


1 mationsmaterial an diese Anschrift: 


i 

i 

| 

1 

1 Name 

| 

[| 

i 

j Straße/Nr. 

END ee in, 2 er 2 2 

Landolt Computer 1 PLZ/Ort Z82408 
Beratung, Verkauf, Service, Leasing - Bitte schicken Sie diesen Coupon im 


Wingertstr. 114 


6457 Maintal-Dörnigheim £ 
Tel. 0 61 81/4 52 93 (Mailbox 48884) 1 Nr. 2061-206 „ Postgiro Hab , BLZ 200 100 20 


® 
f 
Was gibt’s wo? 
Auf diesen Seiten können Sie unseren Lesern Ihr Angebot 
bestens präsentieren. 


Die RUN-Leserbefragung hat gezeigt, daß rund 85% der Leser 
die Anzeigen beachten und vor allem 68% Lösungen ihrer 
Probleme in Anzeigen suchen. Wenn unsere Leser also fragen: 
„Was gibt's wo?“, sollten sie doch auch Ihr Angebot in dieser 
Rubrik finden. Mindesteintrag 3mal, pro Schaltung DM 420,—. 


VUNRONBEEHIITT TERN REICHE, 


q Umschlag mit 2,40 DM Unkostenbeitrag 
i in Briefmarken an: Greenpeace e.V, 

4 Hohe Brücke 1 „ 2000 Hamburg 11 

4 Spendenkonto: 


Looszessssmssossmsssoomomommnnn. 
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Wissen 


Der Weg zum 
intelligenten Computer 


Kaum ein Fachbereich in der Computer-Wissen- 
schaft ist so sagenumwoben wie die Künstliche In- 
telligenz. KI-Experte Karlhorst Klotz beschreibt 


Trends und Tendenzen. 


Expertensysteme — die Bezeichnung 
allein mag manchen vielleicht Ehr- 
furcht einflößen, verheißt sie doch um- 
fassende Kompetenz, das Wissen 
menschlicher Experten, gepaart mit 
der unbestechlichen Präzision von Re- 
chenmaschinen. Andere wiederum 
wiegeln ab: Expertensysteme und 
überhaupt Programme aus dem Be- 
reich der Künstlichen Intelligenz, das 
sei doch nichts als alter Wein in neuen 
Schläuchen, Computer, so meinen sie, 
haben ja schon immer Daten und Re- 
geln verarbeitet, und Intelligenz hat 
wohl der Programmierer, nicht aber 
sein Programm. 

Die Forscher auf dem Gebiet der 
Künstlichen Intelligenz brauchen sich 
über solche Kritik nicht zu wundern, 
hat doch der für diese Forschungs- 
richtung gewählte Name viele Hoff- 
nungen und Erwartungen geweckt, 
die in dieser Form oder so rasch nicht 
zu erfüllen sind. Noch immer zitieren 
Kritiker genüßlich Vorhersagen eines 
KI-Forschers vom Ende der fünfziger 
Jahre, der damals einen Computer in- 
nerhalb einer Zehn-Jahres-Frist zum 
Schachweltmeister aufsteigen sah. Be- 
kanntlich spielen die besten Schach- 
programme mittlerweile deutlich über 
Amateurniveau, haben aber noch im- 
mer strategische Schwächen, die 
etwa von Schachgroßmeistern leicht 
auszuschlachten sind. 

Von den zahlreichen und bunt schil- 
lernden Anwendungen der Künstli- 
chen Intelligenz schieben sich inzwi- 
schen immer deutlicher die Experten- 
systeme in den Vordergrund. Nicht 
nur in der Forschung, auch in der In- 
dustrie werden Expertensysteme ent- 
wickelt, und der Buchladen um die 
Ecke verkauft Anleitungen für ein Ex- 
pertensystem Marke Eigenbau am 
Personalcomputer. 

Aus welchen Teilen besteht ein Ex- 
pertensystem? Mindestens drei Kom- 
ponenten gelten als wesentlich: 

— die Wissensbasis 

— die Schlußfolgerungsmaschine 

— die Benutzerschnittstelle 
Bestehende Expertensysteme wer- 


den in diesem Bereich ihre Muskeln 
unterschiedlich stark spielen lassen 
oder sogar noch Extras aufweisen. 
Doch Programme, die in einer der 
drei Komponenten zu schwach auf der 
Brust sind, verdienen schlicht die Be- 
zeichnung Expertensysteme nicht. 


Zusammen mit der Schlußfolgerungs- 
maschine bildet die Wissensbasis den 
Kern des Expertensystems. Das Be- 
deutungsvolle daran ist jedoch gar 
nicht so sehr, daß ein Programm über 
Wissen in Form von Tatsachen und 
Regeln verfügt und daraus Schlüsse 
ziehen kann. Das leisten herkömmli- 
che Programme schon lange. Eine 
simple if-then-else-Struktur kann das 
Volumen eines Würfels oder einer Ku- 
gel korrekt nach verschiedenen For- 
meln ausrechnen, wenn man zusätz- 
lich zu einer Länge auch noch die Art 
des geometrischen Körpers eingibt. 
Also liegt in einer solchen Struktur 
Wissen über den Zusammenhang zwi- 
schen einer charakteristischen Länge 
und dem Volumen geometrischer Kör- 
per vor, und das Programm zieht dar- 
aus Schlüsse, indem es das Ergebnis 
berechnet. Doch dieses Wissen ist mit 
der Ablaufsteuerung (then- oder else- 
Teil ausrechnen) untrennbar verbun- 
den. 


Ganz anders jedoch in Expertensyste- 
men: Sie zeichnen sich gerade da- 
durch aus, daß Wissensbasis und 
Schlußfolgerungskomponente . völlig 
unabhängig voneinander sind. Die 
Wissensbasis ist eine Ansammlung 
von Tatsachen (oder Vermutungen) 
und Regeln, die ein bestimmtes Wis- 
sensgebiet charakterisieren — und 
nichts deutet darauf hin, wie diese 
Wissenselemente jemals miteinander 
in Beziehung gesetzt werden. Auf der 
anderen Seite legt die Schlußfolge- 
rungskomponente fest, in welcher Rei- 
henfolge die Wissensbasis durch- 
kämmt wird, wie einzelne Argumen- 
tationsketten verknüpft werden und 
was zu tun ist, wenn sich widersprüch- 
liche Aussagen ergeben. Aber dieser 
Programmteil ist prinzipiell unabhän- 


gig davon, was und wieviel in der Wis- 
sensbasis enthalten ist. 

Die Trennung von Wissen und der 
Steuerung seiner Verwendung hat 
den Vorteil der Modularität. Insbeson- 
dere für die Wissensbasis bedeutet 
das: Sie kann bei Bedarf erweitert 
werden, fast so einfach, wie man ein 
neues Buch ins Regal stellt. 

Von der Benutzerschnittstelle eines 
Expertensystems erwartet man mehr 
als nur etwas Benutzerfreundlichkeit 
und Bedienungskomfort, mehr auch 
als von herkömmlichen Programmen. 
Ein Expertensystem muß nämlich sei- 
ne Ergebnisse rechtfertigen können. 
Konkret: Wenn ein Expertensystem 
einem Ärzt den Vorschlag macht, Pa- 
tient Müller soll einmal täglich das An- 
tibiotikum XY schlucken, so will der 
Arzt sicher auch eine Begründung er- 
fahren. Warum Mittel XY, warum ge- 
rade in dieser Dosis, welche Sympto- 
me waren für diese Empfehlung ent- 
scheidend und so weiter. Um für sol- 
che Fragen gewappnet zu sein, 
braucht sich der Computer nur den lo- 
gischen Weg merken, der zum Ergeb- 
nis geführt hat und bei Bedarf Station 
für Station die Begründungen für den 
eingeschlagenen Weg liefern. Und 
diese Begründungen finden sich gera- 
de als Tatsachen und Regeln in der 
Wissensbasis. 


Eigenschaften von 
Expertensystemen 
SEE EEE 


Meilensteine in der Forschung waren 
die schon Anfang und Mitte der sieb- 
ziger Jahre entwickelten Expertensy- 
steme DENDRAL und MYCIN. Besser 
als die meisten Chemiker konnte 
DENDRAL aus komplizierten Meßda- 
ten auf die Struktur von Molekülen 
schließen. MYCIN hat sich beachtli- 
chen Ruf durch seine Zuverlässigkeit 
bei der Diagnose von bakteriellen 
Blutkrankheiten verschafft, für die es 
auch Therapien vorschlug. Bei diesen 
und später auch in der Industrie ent- 
wickelten Programmen hat sich ge- 
zeigt, daß Expertensysteme auf ihrem 
eng begrenzten Spezialgebiet Leistun- 
gen bringen, die denen menschlicher 
Experten zumindest ebenbürtig sind. 

Dieser Durchbruch konnte nur gelin- 
gen, weil die Expertensysteme — ähn- 
lich wie Menschen — mehr können, 
als nur hieb- und stichfestes Wissen zu 
verarbeiten. Sie werden auch mit un- 
sicheren Angaben oder Regeln fertig, 
indem sie solche Unsicherheitsfakto- 
ren von Folgerung zu Folgerung wei- 
tervererben. Schließlich wird die 


Schlußfolgerung ausgewählt, in die 
man nach diesem Verfahren am 
meisten Vertrauen setzen kann. 
‘Wenn aber Expertensysteme anders 
aufgebaut sind und anders arbeiten 
als herkömmliche Programme, dann 
wird sofort klar, daß sie keine Konkur- 
renz für bisherige Software sind. Mit 
ihrem stürmischen Wachstum er- 
obern sich Expertensysteme unbe- 
setzte Marktnischen (der Umsatz soll 
im Vergleich zu 1984 bis 1990 auf rund 
das 200fache steigen). Doch auf wel- 
chen Gebieten können sie konkur- 
renzfähig sein? Bestimmt nicht in Be- 
zeichen, für die exakte, geschlossene 
Theorien bekannt sind. Niemand 
käme etwa auf die Idee, für die Kurs- 
berechnung bei einer Mondlandung 
ein Expertensystem einzusetzen. Die 
Schwerkraftgesetze der Physik rei- 
chen völlig aus, um die Flugbahn prä- 
zise zu berechnen. Doch beispielswei- 
se die Fehlersuche in elektronischen 
Schaltungen oder irgendwelchen un- 
übersichtlichen Systemen, wo viele 
Einzeltatsachen mit Faustregeln ver- 
knüpft werden müssen — solche Dia- 
gnoseaufgaben sind ein Tummelplatz 
für Expertensysteme. 
Wie stark Expertensysteme in 
menschliche Domänen eindringen 
können, wird auch von den Fortge- 
schrittenen in einer augenblicklich 
sehr populären Forschungsrichtung 
der Künstlichen Intelligenz abhängen: 
maschinelles Lernen. Gemeint ist da- 
mit, daß eine Maschine selbständig 
aus Beispielen und Gegenbeispielen 
für einen Sachverhalt die zugrundelie- 
genden Regeln ableitet. Wenn sich 
dieser Prozeß automatisieren ließe, so 
hoffen die KI-Forscher, könnten Ex- 
pertensysteme wesentlich schneller 
aufgebaut werden. 
Denn der eigentliche Engpaß bei der 
Entwicklung entsteht heute mit schö- 
ner Regelmäßigkeit beim Aufbau der 
Wissensbasis. Der menschliche Ex- 
perte weiß nämlich oft gar nicht, ob 
oder nach welchen Regeln er argu- 
mentiert und Problemlösungen findet. 
Das geht oft mehr intuitiv, mit viel Er- 
fahrung, die unbewußt einfließt. 
Die Geistesblitze der Spezialisten in 
logische Einzelschritte zu zerlegen, ist 
die Aufgabe des „Wissensingenieurs" 
(knowledge engineer). Er muß schier 
menschliches leisten, denn er hat 
nicht nur fachliche und interdisziplinä- 
re Probleme zu lösen, sondern muß 
auch viel Fingerspitzengefühl im Um- 
gang mit den menschlichen Experten 
beweisen. Die meisten Expertensy- 
stemprojekte, so weiß man heute, 
scheitern denn auch in diesem Sta- 
dium des Wissenserwerbs. 


LE DAZIENEN NER EN, 


Für den Aufbau eines Expertensy- 
stems gibt es eine Reihe von Hilfestel- 
lungen. Am weitesten kommen dem 
Programmierer die sogenannten Ex- 
pertensystemhüllen (expert system 
shells) entgegen. Sie sind eine Art lee- 
res Expertensysteme von der Stange, 
in die nur noch das Wissen der Spe- 
zialisten eingefüllt werden muß. Diese 
Bequemlichkeit hat ihren Preis: Zwar 
sind prinzipiell Wissensbasis und 
Schlußfolgerungsmaschine unabhän- 
gig voneinander. Doch aus Eiffizienz- 
gründen werden sie in der Praxis 
etwas aufeinander abgestimmt, so daß 
eine Expertensystemhülle meistens 
für einen zum Originalproblem ähnli- 
chen Aufgabentyp sehr gut taugt, für 
andere dagegen nur eingeschränkt. 


Natürlich lassen sich Expertensyste- 
me mit Programmiersprachen wie 
Pascal, C, Fortran oder Basic aufbau- 
en, doch am populärsten sind für die 
experimentelle Entwicklung der KI- 
Sprachen Lisp und Prolog. Sie stellen 
bereits beim Verarbeiten von Symbo- 
len einen hilfreichen Befehlssatz zur 
Verfügung, den man in anderen Spra- 
chen möglicherweise erst durch auf- 
wendige Eigenkonstrukte erzeugen 
muß. Ist der Programmierer bereits 
über das Experimentierstadium hin- 
aus, so erreicht er mit den algorithmi- 
schen Sprachen gerade auf kleinen 
Computern wohl eine deutlich höhere 
Effizienz als mit Lisp oder Prolog. 


Während Lisp in der Grundlagenfor- 
schung der Künstlichen Intelligenz all- 


gemein einen sehr guten Ruf genießt,- 


scheint bei Expertensystemen Prolog 
die Sprache der Wahl zu sein. Das 
liegt daran, daß heutige Expertensy- 
steme als Wissensbasis oft eine 
Sammlung von Wenn-Dann-Regeln 
benützen, obwohl es auch andere 
Möglichkeiten gäbe (Netzwerke und 
so weiter). Aber solche Regeln lassen 
sich menschlichen Experten erfah- 
rungsgemäß am einfachsten entlok- 
ken. Kein Wunder, daß Prolog für die- 
sen Zweck sehr geeignet ist, denn das 
Grundgerüst dieser Sprache bilden ja 
gerade solche Wenn-Dann-Regeln. 


Zwar hält Prolog nicht, was es ver- 
spricht („PROgramming in LOGic"), 
doch ist die Sprache ein erster Schritt 
in eine zukunftsweisende Richtung. 
Das Mühsamste und Fehleranfälligste 
am Programmieren, so fanden die Vä- 
ter von Prolog, sei doch, einem Com- 
puter zu beschreiben, wie er ein Pro- 
blem zu lösen habe. Interessiert ist 
der Benutzer aber janur am Ergebnis, 
also daran, was der Computer 
schließlich errechnet. Und das läßt 
sich auch mit Mitteln der Logik aus- 


drücken. Zusätzlicher Vorteil: Die 
Richtigkeit des Ergebnisses wäre bei 
anderen Programmen erst zu bewei- 
sen, hier ist sie sichergestellt, weil der 
Computer nur in logisch korrekten 
Schritten voranschreitet. Um die Pro- 
grammiersprache sinnvoll einsetzen 
zu können, mußten bei der Definition 
von Prolog einige Abstriche von den 
edlen Prinzipien gemacht und theore- 
tische Geschlossenheit geopfert wer- 
den. Doch das ändert nichts daran, 
daß sich viele Probleme aus dem Be- 
reich der Künstlichen Intelligenz, und 
da sind sicher Expertensysteme zu 
nennen, besonders elegant in Prolog 
angehen lassen. 


Zukunft 
BERFERERN" 


Ob und welche Fortschritte auf dem 
Prolog-Weg noch erzielt werden, ist 
für Expertensysteme zunächst nicht 
wichtig. Auch die zur Abschätzung 
der Unsicherheit verwendeten Metho- 
den haben ihre theoretischen 
Schwachstellen, auch verschiedene 
Regelauswahlstrategien haben Stär- 
ken und Schwächen, und ebenso fin- 
den sich Vor- und Nachteile für ver- 
schiedene Wege, das Expertenwis- 
sen in computerverdaulicher Form 
darzustellen. Schwerer als gute theo- 
retische Absicherung der Einzelteile 
scheint da die Kunst zu wiegen, je 
nach Problem passende Teile zu ei- 
nem effizienten Ganzen zusammenzu- 
stellen. 

Besonders wenn sich die Vermittlung 
von Expertenwissen an Maschinen 
beschleunigen ließe, könnte eine Flut 
von Expertensystemen über uns her- 
einbrechen. Expertenwissen über 
eine Vielzahl beschränkter Bereiche 
wäre dann praktisch überall und im- 
mer abrufbar, ohne daß menschliche 
Experten anwesend sein oder deren 
Veröffentlichungen gewälzt und ver- 
standen (!) werden müßten. 

Doch das birgt natürlich auch Gefah- 
ren: Was, wenn der Computer eine 
falsche Auskunft gibt? Natürlich tut er 
das als verlängerter Arm eines Men- 
schen, der an der Expertensystement- 
wicklung gearbeitet hat. Doch Verant- 
wortung liegt auch bei dem Benutzer, 
der ein Expertensystem eben nicht 
anders betrachten sollte als einen 
Kompaß in einer unbekannten Ge- 
gend: ein äußerst hilfreiches Instru- 
ment, besonders in Abwesenheit von 
erfahrenen Führern, doch ein Instru- 
ment, das weder absolute Störsicher- 
heit noch echte Kompetenz besitzt. 
(Karlhorst Klotz) EEE 
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Nicht für alle Zeichen- 
und Malfunktionen ist 
die Maus das ideale Ein- 
gabemedium. Für Hand- 
malereien zum Beispiel 
ist ein Grafiktablett viel 
praktischer. 


Gelungene Computergrafiken verdie- 
nen genau wie richtige Gemälde die 
Unterschrift des Künstlers. Bei heftig 
geschwungenen Namenszügen wer- 
den aber Joystick und Maus ihren 
Geist aufgeben. Ergebnis: eher De- 
pression als Repräsentation. Direkt 
mit der Hand in die Bitmap schreiben, 
ist die Lösung. Eine kostspielige Mög- 
lichkeit bietet sich in Gestalt eines 
Videoscanners an. Dazu muß erst eine 
Papiervorlage mit einer Videokamera 
abgelichtet und das Bildsignal in für 
den Computer verständliche Formen 
gebracht werden. Grafiktabletts sind 
da etwas billiger und ihre Bedienung 
ist weniger umständlich. Das Funk- 
tionsprinzip dieser Maltafeln besteht 
darin, daß eine sensible Schicht auf 
Druckstellen mit Spannungsänderun- 
gen sowohl in X-, wie auch in Y-Rich- 
tung reagiert. Aus den gewonnenen 
Daten läßt sich exakt die Position des 
Berührungspunktes berechnen. Diese 
Tabletts gab es bisher nur für PCs, ei- 
nen Winzling (Koala-Pad) auch für den 
C64. Die PC-Ausführungen sind je- 
doch für  Heimanwender 


nluxePain 


uner- 


<olor 


Hiör verträgt zäh Basbiinä Dei 
Paint. 

schwinglich. Für Amiga-User hat die 
amerikanische Firma Anakin Re- 
search nun ein Grafik-Tablett namens 
Easyl auf den Markt gebracht, das mit 
998 Mark für den 1000er vergleichs- 
weise billig ist. Es besteht aus einem 
Interface, dem Tablett und der Trei- 
bersoftware. Das mitgelieferte Mal- 
programm kann allerdings in keiner 
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Es geht auch 
ohne Maus 


Weise überzeugen. Dies macht aber 


gar nichts, denn ist die Easyl-Software 


erst einmal installiert, läßt sich Deluxe 
Paint oder auch Pagesetter nachla- 
den. Alle Cursor-Bewegungen lassen 
sich nun mit dem Tablett steuern. Der 
Treiber ist speicherresistent imple- 
mentiert und läßt sich erst durch einen 
Systemreset abschalten. 


Das Interface sitzt am Expansionport 
des Amiga 1000. Es setzt Druckkon- 
takte auf dem Tablett in Amiga-spezifi- 
sche Koordinaten um. Da der Expan- 
sionport wieder herausgeführt wird, 
muß auf weiteres Zubehör, wie Spei- 


bei der Übertragung von Vorlagen 
auf den Bildschirm. Platinenlayouts 
oder Animationssequenzen (Comic- 
maler lassen sich oft schwer vom Me- 
dium Papier und Bleistift abbringen), 
können punktgenau mittels Tablett 
übertragen werden. Einen kleinen 
Haken hat die Sache allerdings: Die 
Cursorbewegungen mittels Tablett 
sind sehr langsam. 

Wer zwischendurch lieber die Maus 
benutzen möchte, kann dies jederzeit 
tun: der Mausport bleibt aktiv. 


Der Preis von 998 Mark für die Versio- 
nen für Amiga 1000 und 2000 wird 


chererweiterung und Harddisk, nicht 
verzichtet werden. 

Beim Installieren der Software kann 
man zwischen rechts- und linkshändi- 
ger Malweise, und aktivierter oder 
passiver linker Maustaste wählen. Bei 
aktivierter Maustaste führt jede Be- 
rührung auf der Sensorfläche des Ta- 
bletts zu einem gemalten Punkt. Soll 
der Cursor inaktiv über den Bild- 
schirm bewegt werden, muß auf dem 
Tablett der Schalter gedrückt wer- 
den, der die linke Maustaste reprä- 
sentiert. In dem anderen Modus ist es 
natürlich umgekehrt: Soll der Cursor- 
punkt in einen Malpunkt umgesetzt 
werden, muß zusätzlich der entspre- 
chende Schalter gedrückt werden. 
Worin liegen nun die Vorteile dieser 
Eingabeform? Für Kreativ-Maler wird 
die Möglichkeit der Freihandeingabe 
das Entscheidende sein. Eine wichti- 
ge Funktion erfüllt das Tablett noch 


Die Übertragung 
von Platinen- 
Layouts ist mit 
ee ; 


Problem. 


kaum fallen, da die Amigas 1000 und 
2000 nur geringe Verkaufszahlen vor- 
weisen können. Ganz anders sieht es 
aber bei der 500er Version aus. Hier 
hat man sich die Mühe gemacht, einen 
Chip zu konstruieren, der fast alle In- 
terfacefunktionen zusammenfaßt und 
daher auch für einen wesentlich gün- 
stigeren Preis angeboten wird, 598 
Mark soll das kleine Easyl kosten, das 
sich nur im Interface unterscheidet. 
Software und Tablett selbst sind 100% 
kompatibel. 


Ab Juli werden die Easyl-Maltafeln mit 
deutschem statt mit englischem Hand- 
buch ausgeliefert. 

Angekündigt ist eine spezielle PC- 
Version, die ebenfalls für 998 Mark zu 
haben sein soll. 


Info: DTM, Bornhofenweg 5, 
6200 Wiesbaden, Tel.: 06121/40 79 89 


Vektorgrafik 
in Perfektion 


„+... Flottenkommandeur Hermann 
Kruud saß in einem Drehstuhl im Kon- 


chungsschiffe zu überlisten und auszu- 
schalten. Danach ist der Planet dem 


Ebenso eindrucksvoll, wie die bis ins 
kleinste Detail durchdachte Spielstory 


- trollraum von Starglider ONE, dem Usurpator schutzlos ausgeliefert. Nur und -strategie, sind Graphik und 
Flaggschiff der Invasionsflotte, und die Mondbasis Candrillo leistet noch Sound von Starglider. 
starrte mit nachdenklichen, rotgerän- Widerstand. Katra und Jayson bilden (cp]) 
derten Augen auf die zwei Bewacher- die Besatzung des AGAV — des letz- 
schiffe in der Mitte seines Holo- ten Raumgleiters der Verteidiger. 
grammfeldes. Yrag Draziw, der Chefkonstrukteur p 


Einige Milliarden Kilometer hinter 
den Bewacherschiffen lag, umwan- 


des Projektes AGAV, braucht aber 
auch ihre Hilfe, um den Planeten 


dert von einem kleinen Mond, der Pla-_ Novenia zu retten. Sie übernehmen Idee/Story: 
net Novenia in seiner ganzen Pracht. die Rolle des AGAV-Piloten. Der klei- Grafik/ Animation: 
ne Kampfraumer wird wahlweise mit 
Novenia war eine reife Frucht, die in Maus, Joystick oder Tastatur gesteu- ara s= zeug 
Hermanns ausgestreckte Finger fal- ert. Hauptwaffe ist das Sapphire-Il- Schwierigkeitsgrad: 
len würde, Er hatte dem Obersten Vierpuls-Lasersystem. Zwei Laserka- Spielspaß: 
Prator von Egron versprochen, daßer nonen befinden sich unter jedem Flü- 
diesmal den letzten freien Spiralarm geldesAGAV, und jede Lasergruppe PIOBBRRSIRERBOIN: 
der Galaxis erobern würde. .." Hoch- schießt gleichzeitig. Als äußerstes Mit- Spielerzahl: 1 
fliegende Pläne haben den Weltraum- tel ist es möglich, feindliche Flugzeu- NERSEpR Seat 


piraten Hermann Kruud und seine Ge- 
- sellen nach Novenia geführt, Mit ei- 
nem Trick gelingt es ihm, die im Orbit 
um Novenia stationierten Überwa- 


ge zu rammen. Damit man erfolgreich 
ist, sollten vorher die Schutzschilde 
des Gegners weitgehend zerstört 
werden. 


Flaches 5,25-Zoll-Diskettenlaufwerk für Commodore 


Ein Drittel schneller als das Modell 1541 


Voll kompatibel mit dem Commodore C64 und C128 


Absolut unschlagbarer Preis 


Schnellste Lieferung: 3 Tage nach Bestelleingang 


Übertragungsrate (kB/s) 1125. | 


125 
74 


unformatiert 


pro Spur 12.048 
& pro o©pur 181.92 


(Kilobyte) 


formatiert 


peicherkapazität 


Abmessungen: 150 x 50 x 270 mm 
5 Stück/Karton/18,5 kg/2,22' 


Konyo International GmbH 


Fragen Sie nach: 

Herrn May Lin 
Anschrift: Kleine Aue 2 
D-6728 Germersheim 
Tel.: (0 72 74) 83 86 


Commodore C64 und C128 sind Warenzeichen von Commodore Business Machines Inc. 


WINE ETER KERN 


PaufdemBi 


Flug- und U-Boot-Simulationen sind unter den 
Spielen nichts Neues. Neu ist jedoch die Simulation 
einer Operation auf dem Bildschirm. Mit „The 
Surgeon“ wird jeder Amiga-Besitzer zum Hobby- 
Chirurgen. Das Leben eines Patienten muß durch 
mehrere schwierige Operationen gerettet werden. 
Doch da viel Übung und Fingerspitzengefühl dazu- 
gehört, bleibt der Patient oft auf der Strecke. 


„The Surgeon“ ist kein gewöhnliches 
Spiel. Es ist für all diejenigen ge- 
schrieben, die gerne Chirurgen ge- 
worden wären, aber nie die Chance 
dazu erhielten. Mit authentischer me- 
dizinischer Terminologie wird der fin- 
gerfertige Mausbändiger zum Schein- 
Operateur auf dem Bildschirm. 
Gleichzeitig kann der Freizeit-Chirurg 
etwas für seine Bildung tun. Während 
er es genießt, das Skalpell zu führen, 
lernt er viel über die menschlichen 
Organe und Gefäße. 


Irren ist tödlich 


Und schließlich ist da noch das Ver- 
gnügen des Doktorspielens selbst. 
„Surgeon bietet reichlich Gelegenhei- 
ten, Fehler zu machen und in Fallen zu 
tappen. Es ist ein Spiel, das Präzision 
und Geschicklichkeit fordert. Nur ein 
kleiner Fehler, und das Resultat kann 
fatal sein. . .“ 

Verlassen wir an dieser Stelle die mit- 
unter etwas makaber anmutende An- 
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leitung. Da es sich bei dem obenste- 
henden Text um eine sinngemäße 
Übersetzung der bisher nur in Eng- 
lisch vorliegenden Spielanleitung han- 
delt, wäre es möglich, daß der Her- 
steller manches gar nicht so meint, 
wie er es geschrieben hat. Und daß 
Anleitungen für den amerikanischen 
Markt — es gibt keine schwarze Liste 
— oft etwas „farbiger" ausfallen als 
die spätere deutsche Übersetzung, ist 
in Fachkreisen kein Geheimnis. 

Zur Story: Eines Tages kommt Mr. 
Jones in das Büro seines Arztes, um 
die alljährliche Kontrolluntersuchung 
vornehmen zu lassen. Während der 
Untersuchung entdeckt der Arzt ein 
‚aortic aneurism’ — eine krankhafte 
Vergrößerung der Hauptschlagader. 
Nach einer Serie von Röntgen- und Ul- 
traschalluntersuchungen stellt sich 
heraus, daß die Gefahr eines Aortaris- 
ses besteht. Eine zügige Operation ist 
unumgänglich 


Zum Spiel: Der angehende Operateur 
wird zuerst durch einen kleinen Füh- 
rer mit der Kunst der Chirurgie ver- 
traut gemacht, Er erfährt, daß Infek- 


Schnelle Reak- 
tion und Finger- 


sind im Opera- 
tions-Saal erfor- 


derlich 


ldschirm 


tion der größte Feind jeder Operation, 
das Durchtrennen der falschen Blut- 
gefäße fatal und eine zu lange Opera- 
tionsdauer wegen vermehrt auftreten- 
den Komplikationen kritisch ist. 


Die zweite Phase der Vorbereitung ist 
der Definition medizinischer Fachaus- 
drücke gewidmet. Zwischen ‚ABDO- 
MINAL CAVITY' und ‚VENA CAVA’ 
wird alles erklärt, was operationsrele- 
vant scheint. 


Zu guter Letzt, bevor es dem Patienten 
ans Leben geht, sollte man sich noch 
mit dem 24teiligen OP-Besteck gründ- 
lich vertraut machen: Es genügt nicht, 
zu wissen, daß man mit dem Skalpell 
ein Loch in den Patienten machen 
kann. Eine so begrenzte Vorbildung 
ist mit tödlicher Sicherheit ungenü- 
gend. Die Schritte während einer 
Operation sind so nahe als möglich an 
den tatsächlichen Ablauf angegli- 
chen. Für den medizinischen Blind- 
gänger, oder ,...if you confess you 
can never be a surgeon. ..' liegt noch 
eine step-by-step-Anleitung bei, wie 
zumindest die erste Operation an Mr. 
Jones erfolgreich ausgeführt werden 
kann. Ich gestehe, daß ich mehrmals 
versucht habe, auf diesem Weg Mr. 
Jones zu retten, aber erfolglos. 

Auf meine Bemühungen 

> Scrub 

> Administer Antibiotika 

> Paint abdomen with antiseptic solu- 
tion... 

erhielt ich stets an dieser Stelle die 
Antwort: Guru meditation — software 
error — press left mouse button to con- 
tinue, 

(cpl) 


Programmname: Surgeon 
J l 2 3 4 5 
Idee/Story: 
Grafik/ Animation: 
Sound/Sprache: 
Schwierigkeitsgrad: 
Spielspaß: 
Gesamteindruck: 
Spieltyp: Simulation 


Besonderheiten: Original nicht absturzfrei 


Hersteller: ISM Inc. 
Preis: 129 Mark 
Vertrieb: Softwareland Zürich 
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Fractal- 


Ein „Berg und 


Bilder, wie man sie nur aus futuristischen Filmen 
kennt, liefert Fractal-Maker. 3D-Hintergrundbilder 
für Videoclips oder Spiele lassen sich mit diesem 
Programm schnell erstellen. 


Daß der Amiga jeden, der sich für 
Grafik interessiert, begeistern kann, 
ist inzwischen allgemein bekannt. 
Auch ich bin nach meinen ersten Er- 
fahrungen mit diesem Computer kei- 
ne Ausnahme Bei den kom- 
merziellen Programmen hat mich 
aber immer eines gestört; ich konnte 
Bilder, so wie ich sie mir vorstellte, 
nur mit erheblichem Aufwand über 
normale Zeichenprogramme erstel- 
len, und auch dann war ich mit dem 
Ergebnis nicht immer zufrieden. Das 
war der Grund für mich, ein eigenes 
Programm zu schreiben, welches mir 
sämtliche Möglichkeiten bietet, die 
mir immer gefehlt hatten: 

Freie Landschaftsgestaltung, mausge- 
steuerte Eingabe, verschiedene Dar- 
stellungsarten, einfache Programm- 
struktur. 

Da ich von Anfang an mit Amiga-Basic 
(Grafikfähigkeit und Geschwindigkeit) 
auf gutem Fuße stand, habe ich mich 
entschlossen, den Fractal-Maker in 
Basic zu schreiben. Das Ergebnis 
kann sich, so glaube ich, sehen las- 
sen. 

Nachdem man das Listing (hoffentlich 
richtig) in den Basic-Editor eingetippt 
hat (abspeichern nicht vergessen), 
zeigt das Programm nach dem Starten 


Durch Addieren und Subtrahieren .. 
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die Eingabemaske, auf der links das 
Positionsfeld, in der Mitte der Höhen- 
regler und rechts die Resolutions-Um- 
schaltung besonders auffallen. Hier 
werden alle nötigen Parameter für 
das Fractal eingegeben. 

Um ein Fractal zu kreieren, legen wir 
als erstes die Anzahl der Gitterpunkte 
mit Hilfe der Resulution-Umschaltung 
fest, Je mehr Punkte ein Fractal be- 
sitzt, desto größer ist die Auflösung 
der Darstellung. 


Berg durch Mausklick 


Wenden wir uns nun dem Formen- 
Menü zu und wählen durch Anklicken 
mit der linken Maustaste die ge- 
wünschte Bergform aus. Die Höhe des 
Berges kann man seinen eigenen 
Wünschen entsprechend mit dem Hö- 
henregler verändern. Wollen wir statt 
eines Bergeseein Tal entstehen lassen, 
erreichen wir dies durch einfaches 
Umschalten des UP/DOWN-Schalters 
unterhalb des Höhenreglers. An- 
schließend bestimmen wir im Posi- 
tionsfeld noch Lage und Ausdehnung 
des Berges beziehungsweise des Ta- 


les innerhalb des Fractals. Durch 
zweimaliges Klicken in das Feld (na- 
türlich nicht an derselben Stelle) be- 
stimmen wir die beiden Begrenzungs- 
punkte eines Rechteckes. Die Fläche 
zwischen diesen Punkten wird nun 
farblich markiert, wobei die Farbe 
Auskunft über die Höhe gibt. Man 
kann sich das Positionsfeld als Land- 
karte vorstellen, bei dem die Höhenli- 
nien farbig angezeigt werden. Am 
deutlichsten sieht man dies im HIGH- 
Res-Modus. Der Blickpunkt, von dem 
man später das fertige Fractal sieht, 
befindet sich an der linken unteren 
Ecke. Sind Sie mit der Eingabe zufrie- 
den, so klicken Sie auf OK und Ihre 
Fractal-Landschaft wird nach kurzer 
Umrechnungszeit in 3-D-Darstellung 
auf dem Bildschirm ausgegeben. Mit 
der rechten Maustaste kommen Sie in 
die Menüleiste, in der sich unter an- 
derem der Punkt DISPLAY befindet. 
Hier können sie verschiedene Dar- 
stellungsarten auswählen, die später 
noch einzeln erklärt werden. Ferner 
befinden sich verschiedene Colorsets 
in dem Menüpunkt COLOR, mit dem 
es möglich ist, eine andere Farbstruk- 
tur zu wählen. Ein anderes Farbset 
gibt einem Fractal gleich einen ganz 
anderen Charakter. 


POSITIONS-FELD: In diesem Feld 
wird mit Hilfe der Maus die Position 
der Formen festgelegt. Die kleinste 
definierbare Fläche ist ein Quadrat 
mit drei auf drei Punkten. Unterhalb 
des Feldes befindet sich eine Anzeige 
für die Höhe des Punktes, auf dem 


R er 
yo IIHHH#FZ 


.. von Geländeformen werden ... 


Maker: 


Tal Programm” 


sich der Mauszeiger gerade befindet. 
HÖHEN-REGLER: In diesem Feld, das 
als Schieberegler ausgelegt ist, läßt 
sich die Höhe der Berge eingeben, in- 
dem man den Pfeil bei gedrückter 
Maustaste auf- und abbewegt. Die au- 
genblickliche Höhe wird dabei immer 
angezeigt. Direkt unterhalb des Reg- 
lers liegt der UP/DOWN-Schalter. 
Während sich in der Stellung UP die 
Höhe des Berges einstellen läßt, wird 
bei DOWN die Tiefe des Tales defi- 
niert. 


Sechs Geländeformen 


FORMEN-MENÜ: In diesem Menü 
kann die Form des Berges bezie- 
hungsweise des Tales gewählt wer- 
den. Die maximale Höhe der Form 
wird durch den Höhenregler festge- 
legt, wobei es möglich ist, die Grund- 
fläche quadratisch oder rechteckig zu 
wählen. Durch Probieren wird klar, 
welche Form die einzelnen Bausteine 
haben. 

l. HILL 1: Im ersten Feld wird ein 
Berg mit einer runden Grundfläche 
definiert. 

2. HILL 2: Hier entsteht ein Berg mit 
rechteckiger Grundfläche. 

3. PYRAMIDE: Hier wird eine Form 
definiert, die einer vierseitigen Pyra- 
mide entspricht. 

4. BLOCK: Hier wird ein Quader fest- 
gelegt, um verschiedene Abstufun- 
gen im Fractal zu bekommen. 


5. PLANE: Diese Funktion ist ähnlich 
dem BLOCK, allerdings wird hier, im 
Gegensatz zu allen anderen Formen, 
die eingestellte Höhe fest eingehalten, 
das heißt, es wird nicht auf einen be- 
stehenden Berg addiert (oder subtra- 
hiert). Wenn die Höhe auf 0 eingestellt 
ist, wird die Fläche wieder in den Aus- 
gangszustand zurückgesetzt. Auf die- 
se Ärt lassen sich Fehler in der Einga- 
be wieder löschen. 

6. POINT: Hier hat man die Möglich- 
keit, einzelne Punkte auf eine be- 
stimmte Höhe zu setzen. Durch Bewe- 
gen der Maus und gleichzeitiges 
Drücken der linken Maustaste kann 
im Eingabefeld direkt gezeichnet wer- 
den. 

RESOLUTION: In diesem Feld kann 
die Anzahl der Gitterpunkte zwischen 
LOW (17x17), MED (35x35), HIGH 
(71x71) umgeschaltet werden. Je 
mehr Punkte in einem Fractal vorhan- 
den sind, desto besser ist seine Quali- 
tät. Allerdings läßt die Geschwindig- 
keit (besonders beim Bildaufbau) 
nach. Bei maximaler Punktezahl benö- 
tigt ein Bild zirka neun Minuten zur 
Fertigstellung (was für Basic recht an- 
sehnlich ist). Beim Umschalten wird 
die bisherige Eingabe gelöscht. 


HIGH/COLOR-Schalter: Hier kann 
zwischen dem HIGH- und dem CO- 
LOR-Modus umgeschaltet werden. 
Der HIGH-Modus ist der normale Ar- 
beitsmodus, das heißt, hier werden 
die Formen mit der im Höhenregler 
angegebenen Höhe gezeichnet. Beim 
COLOR-Modus wird von einem Berg 


die Farbe gezeichnet, wobei keine 
Höhenänderung vorgenommen wird. 
CLEAR: Mit CLEAR wird das gesamte 
Positions-Feld gelöscht. 

OK: Bei OK wird die Eingabemaske 
verlassen und der 3-D-Zeichenmodus 
aktiviert. 

PROJEKT-MENÜ: 

CREATE: Durch Auswahl dieses Me- 
nüpunktes kommt man jederzeit in die 
Eingabe zurück. 

SAVE: Speichert ein fertiggestelltes 
Bild im IFF-Format auf die Diskette im 
eingebauten Laufwerk ab. Der File- 
name wird vom Programm selbst be- 
stimmt, wobei das 1. Bild nach Pro- 
grammstart unter „FRACTAL 1" ge- 
speichert wird, das 2. Bild unter 
„FRACTAL 2“ und so weiter. 

QUIT: Beendet das Programm. 
COLOR-MENÜ: 

Durch Auswählen eines Farbsets (Set 
l — Set 6) wird eine neue Farbpalette 
angezeigt 


Verschiedene 
Darstellungsmodi 


Display-Menü: Hier kann die Darstel- 
lungsart des in der Eingabe definier- 
ten Fractals ausgesucht werden. Fol- 
gende Arten sind möglich: 

RASTER |: Zeichnet das Fractal als 
Gittermodell mit Farbabstufung. 
RASTER 2: Wie RASTER 1 ohne Farb- 
abstufung. Bei Höhenwerten über 0 


‚.. aufeinfache Weise bizarre... 


www. HOMECOMPUTERWORLD, COM 


„und futuristische Landschaften erstellt. 


August/87 um 71 


wird mit Farbe 31 gekennzeichnet, un- 


terhalb mit Farbe l. 


FILLED 1: Zeichnet das Fractal als 
ausgefüllte Landschaft, indem die Fel- 
der zwischen den Gitterpunkten mit 
der entsprechenden Farbe ausgefüllt 


werden. 


FILLED 2: Wie FILLED 1, nur werden 
hier die Felder mit Gitterlinien über- 
zogen. Die Farben der Gitterlinien 
werden so berechnet, daß der Farb- 
wert jedes Feldes in der Helligkeit um 


ein Drittel reduziert dargestellt wird. 


' SPRACHE: 


start: 


CHESS: Diese Funktion belegt das 
Fractal mit einem Schachbrettmuster, 
das heißt, es wird immer abwech- 
selnd eine helle und eine dunkle Flä- 
che gezeichnet. 

FAST: Zeichnet das Fractal als reines 
Gittermodell, ohne die normalerweise 
verdeckten Linien zu zeichnen. Im 
Fast-Modus wird unabhängig von der 
eingestellten Anzahl der Gitterpunkte 
immer in LOW-Resolution dargestellt. 
Dies ist besonders bei HIGH-Resolu- 
tion hilfreich, um eine schnelle Über- 


sicht des eingegebenen Fractals zu 
bekommen. 


Um komplexe Landschaften zu ent- 
wickeln, ist es möglich, durch ge- 
schickte Überlagerung der einzelnen 
Bausteine ganz neue Gebilde zu er- 
stellen, die im Formenmenü nicht ent- 
halten sind. Auch mit der Höhen- und 
Tiefenfunktion ein bißchen zu experi- 
mentieren, wird sich mit Sicherheit 
lohnen. 


Es ist sehr wirkungsvoll, am Anfang die 


ganze Ebene mit DOWN und PLANE 
nach unten zu legen und darauf 
dann die gewünschten Fractal-Gebil- 
de zu plazieren. Der COLOR-Modus 
soll nicht unerwähnt bleiben, denn 
man kann damit auf ein schon beste- 
hendes Gebilde eine andere Farbe 
einfach „aufsetzen“, was verblüffende 
Effekte garantiert. 


Ein Tip zum Schluß: Große Gebilde, 
die im Vordergrund, also an der unte- 
ren Kante des Positionsfeldes stehen, 
verdecken ALLES, was sich dahinter 


fekte RE x Behage 

durch die Farb- Sie besitzen mit Fractal-Maker ein 
veränderung. grafisches Hilfsmittel, das Ihrer Krea- 
der Bilder er- tivität keine Grenzen mehr setzt. 


reicht werden. (Christian Obermaier) 


FACTAL-MAKER 


AMIGA-BASIC V1.0 


SCREEN 1,320,220,5,1 


WINDOW 3," 


ER PRACTALS "N ,00,0)-(310,200),0,1 


PALETTE 0,0,0,0:PALETTE 1,0,0,0:COLOR 6 


LOCATE 10,14:PRINT 


"FRACTAL-MAKER'" : PRINT 


COLOR 3:PRINT TAB(19) ;"by'":PRINT 
PRINT TAB(11) "CHRISTIAN OBERMAIER" 


IF FRE(0)<25000 THEN CLEAR 


‚125000& 


DIM c$(3) ,‚d$(2) ‚,e$(1) ‚,em% (57) 


op: 
DATA "Projekt'","Create"," Save "," Quit " 

DATA "Display"," Raster 1"," Raster 2" 

DATA. 7E71189.10, SP TE 21% Chess 0," Fast & 
DATA EBHTGH” , "MED 7 EOW- 7, DOWN „= TUR, HIGH "COLOR" 


FOR t=0 TO 3:READ 
FOR t=1 TO 6:a$=" 
FOR t=0 TO 6:READ 
FOR t=0 TO 2:READ 


a$:MENU 1,t,1,a$:NEXT:MENU 2,0,1,"Color" 
Set"+STR$(t) :MENU 2,t,1,a$:NEXT:MENU 2,1,2 
a$:MENU 3,t,1,a$:NEXT:MENU 3,1,2:MENU 4,0,0,"" 
c$(t) :NEXT 


READ d$(0) ,d$(2) ‚,e$(0) ,e$(1) 
FOR t=0 TO 57:READ em%(t) :NEXT 


72 Em Kun 
i / ‚COM 


DATA 73, 11, 1, 4, 64, ‘1024, 16388, 0 

DATA 1536, 14337, 0, 0, O0, 2308, 17474,-31490 

DATA 20452, 0, 2304, 17410, -32638, 2080, 0, 4228 

DATA -32188, 17538, 16388, 6144, 4224,-32252, 16514, 2080 
DATA 15360, 4228,-32184, 9346,18468, 6144, 8257, 264 
DATA 8322, 0, 0, 24677, 336, 5250, 18468, O 

DATA -32751, 272, 4226, 2080, O0, 4, 64, 1024 

DATA 16388, 0 


al=WINDOW(3)+11:a=PEEKL(PEEKL (WINDOW (8) +4) +8) :a2=(al+1)*40+a 
FOR t=11 TO al:POKE a+t*40,0:POKE a+t*40+39,0:NEXT 

FOR t=a2 TO a2+39 STEP 4:POKEL t,0:NEXT 

ON MENU GOSUB m:MENU ON 


var: . **%* Variablen-Definition *** 


DEFINT d,f,g,h,1,m,s,t,x,y,Z,Pp 


a=0:al=0:a2=0:aa=0:adr=0:av=0:ax=0:ay=-0:az=0 
ax1=0:ax2=0:ayl=0:ay2=0:ay3=0:az1=0:az2=0:az3=0 
c=0:c1=0:c2=0:dx=0:dy=0:dg=0:dg1=0:ein=D:e=0 
f=0:fa=0:fal=0:fr=0:fb=0:fg=0:fl=-0:f1l2=0:frac=0:g91=0:hc=0 
lp=0:1p1=0:men=0 :meni1=0:mt=0:p=0:t=0:tx=0:ty=0:tm=0:tt=0 
x1=-0:x2=0:x3=0:y1=0:y2=0:y3=0:z1=0:22=0:xm=0:ym=0: ed y=0:z=0 
xb=0:xs=0:ys=0 


api=3.141592:apl=api/180:de=1:far=1:fl1=1:form=-il 
g=72:99=g9*2:gr=6:h=50 :m=8:mo=1:mx=160 :my=100:res=2 
s=4:35=8:w1=80*ap1:w2=30*apl1:x1=0:xr=310:yu=0:yo=200 
zp1=32:zp2=200 


DIM x(72,72) ,y(72,72) ,2(72,72) ,£(72,72),fa(31,2),xs(5),ys(5),p(5) 
DIM xx(8) ,yy(8) ,xc(8),yc(8) ,ee%(19910) ‚e%(7204) ‚,e(5) 


i **%* Rotations-Matrix *** 


al=SIN(w1) : a2=SIN(w2) 

ce1=C0OS(w1) : c2=COS(w2) 

ax1=c2 : ax2=-a2 

ayl=c1*a2 : ay2=c1*c2 : ay3=-al 
azl=al*a2 : az2=al*c2 : az3=cl 


umr: ' *%*%* Umrechnung in Zentralpunkt-Perspektive *** 


GOTO eingabe 

u: 

fl=0 

IF £fli=0 THEN PUT (1,1) ‚ee%,PSET:GOTO mainend 
IF £fli=2 GOTO main 

umr1i: 

CLS:LOCATE 11,14:PRINT "Please wait...":dg=g/2 
FOR tx=s TO g STEP s 

LOCATE 13,18:PRINT (g-tx)/s:IF fl=1 GOTO unr 
‚xe(tx-dg) *gr-75:al=axi*x:a2=ayl*x:a3=azi*x 
FOR ty=s TO qg STEP s 


y=(ty-dg) *gr-75:z=z(tx,ty) 
ax=altax2*y:ay=-a2tay2*y+tay3*z: az=a3+taz2*y+taz3*z 
av=-az/ (az-zp2) :ax=ax-av* (ax-zpl) :ay=-ay-av*ay 
x(tx,ty) =mx+tax:y(tx,ty)=my+tay 
NEXT: NEXT: f1l1=2 
‘ KAERKKRKKKKTK HT TH HI II KT HI N HE 
i *%** Hauptprogramm *** 
‘ WAR HH N TI I K TI FT HA HK A a a 
main: 
IF fl=1 THEN GOTO unmr 
fa=1:fl=0:CLS:IF mo=6 THEN GOTO fast 
FOR tx=s*2 TO g STEP s 
FOR ty=s*2 TO ga STEP s: IF fl<>O THEN GOTO main 
GOSUB pkt 
ON mo GOSUB raster,raster,filledi,filled2,chess 
NEXT 
NEXT 


mainend: 
GET (1,1)-(310,199) ‚ee%:f1l1=0 
WHILE MOUSE (0)<>0:IF £fl<>O THEN GOTO main 


WEND 

WHILE MOUSE (0)=0:IF £fl<>0 THEN GOTO main 
WEND 

GOTO umr 


’ wann 


! **%* Eingabe **%* 

‘ war HK HN 
eingabe: 
CLS:ein=1:G0SUB farb 


COLOR 31 

LOCATE 11,31:PRINT c$(res) :LINE (210,60)-(300,90) ,1,b 
LOCATE 3,21 :PRINT e$(hc) 

LOCATE 18,21:PRINT d$(de+1) 

COLOR 1:LOCATE 5,21:PRINT h*de 

LOCATE 20,6 :PRINT "High:";O0 

LOCATE 24,3 :PRINT "CLEAR":LINE (11,180)-(60,194) ,1,b 
LOCATE 24,36:PRINT "OK" :LINE (275,180)-(300,194) ,1,b 
LOCATE 9,28 :PRINT "Resolution":PUT (140,160) ‚em%, PRESET 
LINE (form*12+141,159)-(form*12+153,171) ,31,b 

LINE (ss-1,ss-1)-(gg+1,99+1) ‚,1,b:PUT (ss,ss) ‚e%,PSET 
FOR t=2 TO 31:LINE (168,35+t*3)-(182,t*3+37) ‚32-t ,bf :NEXT 


**%* Eingabe setup *** 


ein: 

WHILE MOUSE (0)< >0:WEND 

el: 

COLOR 1 

WHILE MOUSE (0) =0 

xm=INT (MOUSE (1) /ss) *ss:ym=INT (MOUSE (2) /ss) *ss 
IF xm<ss OR xm>gg OR ym<ss OR ym>gg GOTO ee 
LOCATE 20,11:PRINT z(xm/2,ym/2) 

ee: 


WEND 
mt=MOUSE (0) :xm=MOUSE (1) :ym=MOUSE (2) 


= Siiahle 


IF xm<168 OR xm>182 OR ym>145 OR ym<40 GOTO e2 

IF ym<131 THEN h=130-ym:LOCATE 5,21:PRINT h*de:GOTO el 
IF ym>134 THEN 

de=-de:LOCATE 5,21:PRINT h*de:LOCATE 18,21 

COLOR 31:PRINT d$(de+1) :SOUND 1000,1:COLOR 1 
END IF 


e2: 
IF ym>180 AND ym<195 THEN 
IF xm>275 AND xm<300 GOTO einend 
IF xm>12 AND xm<60 THEN GOTO clein 
END IF 
COLOR 31 
IF ym>160 AND ym<170 AND xm>140 AND xm<210 THEN 
form= (xm-140-6) /12:SOUND 1000,1 
LINE (139,159) -(213,171) ,0,bf:PUT (140,160) ‚em%,PRESET 
LINE (form*12+141,159)-(form*12+153,171) ,31,b 
END IF ; 
IF xm>210 AND ym>60 AND xm<300 AND ym<90 THEN 
res=res+1:IF res>2 THEN res=0 
LOCATE 11,31:PRINT c$(res) :s=2"res:ss=s*2:GOTO clein 
END IF 
IF xm>160 AND ym>16 AND xm<195 AND ym<24 THEN 
IF hc=1 THEN hc=0 ELSE hc=ei 
SOUND 1000,1:LOCATE 3,21:PRINT e$(hc) 
END IF 


xm=INT(xm/ss) *ss:ym=INT(ym/ss) *ss 

IF xm<ss OR xm>gg OR ym<ss OR ym>gg GOTO ein 

IF form=-5 THEN GOSUB punkt:GOTO ei 

PSET (xm,ym) ‚30 

IF hc=0 THEN SOUND 1000,1 ELSE SOUND 500,1:SOUND 800,1 
IF gi=0 THEN x1=xm/2:y1i1=ym/2:g91=1:60T0 ein 
x2=xm/2:y2=ym/2 

PSET (x1*2,y1*2) ,‚f(x1,y1) :PSET (x2*2,y2*2),,f(x2,y2) 
IF x1>x2 THEN SWAP x1,x2 

IF y1i>y2 THEN SWAP yl,y2 

dx=x2-x1:dy=y2-yl 

IF dx<=s OR dy<=s THEN g1=0:50UND 500,3:6G0T0O ein 
GOSUB formen:gi1=0 

GOTO ein 


clein: 
SOUND 1000,2 


"FOR tx=1 TO g:FOR ty=-1 TO. g EEE bei 
'f(tx,ty) =0:z(tx,ty)=0:NEXT:NEXT HELEN Compiler 


ERASE f,z:DIM £f(72,72) ,2(72,72) 'x** ohne Compiler 


LINE (1,1)-(gg+1,gg+1) ,‚O,bf:LINE (ss-1,ss-1)-(gg+1,gg+t1) ,1,b 
fli=1:g1=0 
GOTO ein 


einend: 
GET (ss,ss)-(99,99) ‚e%:SOUND 1000,1:ein=0:CLS:G0SUB farb 


GOTO u 


mos: WHILE MOUSE (0)<>0:WEND:WHILE MOUSE (0) =0::WEND : RETURN 


’ 12.2.2222 2222 22 2 2 2 22 2 2 2 2 zn 


k *%*%* Formen-Definition *** 
‘ wre A A a a a a a 
formen: 
fli=1:O0N form GOTO hill2,hill3,block,plane 


hilli: 

IF dx<=dy THEN dg=dx:yl=yl+(dy-dx)/2 ELSE dg=dy:x1=x1+(dx-dy)/2 
dg=dg-(dg AND 1) :dgi=dg/2 
a=api/((dg+dg/4) /2) :x1=INT(x1/s) *s:y1=INT(y1/s)*s 


FOR x=0 TO dg STEP s:al=x-dgl:al=al*al:xx=x+tx1 
FOR y=0 TO dg STEP s 
a2=y-dgl:aa=C0OS(SQR(al+a2*a2)*a) 
IF aa>-.9 THEN aa=(aa*h/2+h/2)*de:yy=y+yl:z=z(xx,yy)+aa:GOSUB sp 
NEXT: NEXT 
RETURN 


niitr2z: 

al=dy/api 

FOR x=0 TO dx STEP s:a2=SIN(x/(dx/api)) :xx=x+x1 

FOR y=0 TO dy STEP s 
aa=(a2*SIN(y/al))*h*de 
yy=-y+tyl:z=z(xx,yy)+aa:GOSUB sp 

NEXT: NEXT 

RETURN 


hill3: 

dx=dx+(dx AND s) :dy=dy+(dy AND s) 
dg=dx/2:c1=SQR (dg*dg+h*h) /(dg/s) 
dg=dy/2:c2=SQR (dg*dg+h*h) / (dg/s) 


FOR x=0 TO dx/2-s STEP s:c=c1*x/s+c1:al=SQR(ABS(c*c-x*x)) 
FOR y=0 TO dy/2-s STEP s 
c=c2*y/s+c2:a2=SQR(ABS(c*c-y*y)) 
IF al>a2 THEN aa=a2 ELSE aa=al 
aa=aa*rde 
xx=x+xl:yy=y+ty1l ıZ=Z(xx,yy) +taa:GOSUB sp 
xx=dx+tx1-x-S:yy=y+ty1 ıZ=Z (Xx,yy)+aa:GOSUB sp 
xx=dx+tx1-x-S:yy=dytyl-y-S :z=z(xx,yy) +taa:GOSUB sp 
xx=x+x1:yy=dy+tyl-y-s ıZ2=2Z (xx,yy) +taa:GOSUB sp 
NEXT: NEXT 
RETURN 


block: 

FOR x=0 TO dx STEP s:FOR y=0 TO dy STEP s 
xx=X+x1l:yy=y+tyl:aa=sh*de:z=z(xx,yy)+aa:GOSUB sp 

NEXT: NEXT 

RETURN 


plane: 

FOR x=0 TO dx STEP s:FOR y=0 TO dy STEP s 
xx=x+x1l:yy=y+tyl:aa=sh*de:z=aa 
IF hc=0 THEN z(xx,yy)=z ELSE z=aa 
£f=ABS(z/3.11) :f(xx,yy)=f:IF aa=0 THEN f=-1 
PSET(xx*2,yy*2) ‚f+1 

NEXT: NEXT 

RETURN 


punkt: 

xx=xm/2:yy=ym/2:z=z(xx,yy):IF z=h*de THEN RETURN 
z=h*de:f=ABS(z/3.11) 

IF hc=0 THEN z(xx,yy)=z ELSE IF f(xx,yy)=f THEN RETURN 
IF hc=0 THEN SOUND 1000,1 ELSE SOUND 500,1:SOUND 800,1 
f(xx,yy)=f:IF h<0O THEN f=f+1 

PSET (xx*2,yy*2) ,‚f:fli=1 

RETURN 


Sp: 

IF z>90 THEN z=90 ELSE IF z<-90 THEN z=-90 
IF hc=0 THEN z(xx,yy)=z ELSE z=aa 
f=ABS(z/3.11):IF £f=0 OR f=1 THEN f=2 
f(xx,yy) =f:PSET(xx*2,yy*2),f 

RETURN 


‘ KERKKKKKKHH HT KT I I N A N HK U a 


5 *%*%* Darstellungs-modus *** 
‘ Wa N N Te Te A a a a a a a a ı 


raster: 

IF l1p=-4 THEN RETURN 

fa=f (tx-s,ty-s) +1 

IF mo=2 THEN fa=1:IF z(tx-s,ty-s) >0 THEN fa=31 
COLOR 0 


IF lpil=1 THEN GOSUB polyclip:AREAFILL:GOTO normi ELSE GOTO norm 
RETURN 


filledi: 
IF lMp=-4 THEN RETURN 
fa=f (tx-s,ty-s) /2.1+1:fal=f(tx,ty)/2.1+1 
. IF fa=1 AND fai=1 THEN IF RND(1)>.5 THEN fa=31 
COLOR fa 
IF lMpil=1 THEN GOSUB polyclip:AREAFILL ELSE GOTO norm2 
RETURN 


filled2: 

IF lMp=-4 THEN RETURN 

fa=f (tx-s,ty-s) /2.1+1:fal=f (tx,ty)/2.1+1 

IF fa=1 AND fail=1 THEN IF RND(1)>.5 THEN fa=31 

COLOR fa 

IF fa=1 OR fa=31 THEN fa=30 ELSE fa=fa+15:IF fa=30 THEN fa=29 
IF lMpl=1 THEN GOSUB polyclip:GOTO normi ELSE GOTO norm 
RETURN 


chess: 
IF fa=1 THEN fa=31 ELSE fa=1 
IF lp=-4 THEN RETURN 


COLOR fa 
IF lMpi=1 THEN GOSUB polyclip:AREAFILL ELSE GOTO norm2 
RETURN 


fast: h 
FOR tx=4 TO g STEP 4:PSET (x(tx,4) ‚y(tx,4)) 

FOR ty=8 TO g STEP 4:LINE -(x(tx,ty) ‚y(tx,ty)) ‚f(tx,ty)+1 
NEXT: NEXT 

FOR ty=4 TO g STEP 4:PSET (x(4,ty) ‚y(4,ty)) 

FOR tx=8 TO g STEP 4:LINE -(x(tx,ty) ‚y(tx,ty)) ‚f(tx,ty)+1 
NEXT: NEXT 

GOTO mainend 


x *** Bildschirm-Anzeige *** 
norm: 
AREA (xs(1),ys(1)):AREA (xs(2) ,ys(2)):AREA (xs(3),,ys(3)) 
AREA (xs(4) ,ys(4)) 


norml: 

AREAFILL 

LINE (xs(3) ,ys(3))-(xs(4) ,ys(4)) ‚fa:LINE -(xs(1) ,ys(1)) ‚fa 
RETURN 


norm2: 

AREA (xs(1),ys(1)):AREA (xs(2),ys(2)):AREA (xs(3) ,‚ys(3)) 
AREA (xs(4) ,ys(4)) :AREAFILL 

RETURN 


: **%* Bildschirm-Begrenzung *** 
polyclip: 
xs(5)=-xs(1):ys(5)=ys(1):p=1 
FOR t=1 TO 4:x1=xs(t) :yl=ys(t) :x2=xs(t+1) :y2=ys(t+1) 
GOSUB clipl:NEXT ' xs->xx 


tt=p-1:xx(p)=xx(1) :yy(p)=yy(1):p=1 
FOR t=1 TO tt:x1=xx(t) :yl=yy(t) :x2=xx(t+1) :y2=yy(t+1) 
GOSUB clipr:NEXT ' xx->xc 


tt=p-1:xc(p)=xc(1) :yc(p)=yc(1) :p=1 
FOR t=1 TO tt:x1=xc(t) :yl=yc(t) :x2=xc(t+1) :y2=yc(t+1) 
GOSUB clipu:NEXT ' xc->xx 


tt=p-1:xx(p)=xx(1) :yy(p)=yy(1) :p=1 
FOR t=1 TO tt:x1=xx(t) :yl=yy(t) :x2=xx(t+1) :y2=yy(t+1) 
GOSUB clipo:NEXT ' xx->xc 


FOR t=1 TO p-1:AREA (xc(t),yc(t)):NEXT ' Ausgabe d. Polygöns 
RETURN 


S: XX(p)=xX:yy(p)=y:p=p+1:RETURN 
sl: xc(p)=x:yc(p)=y:p=p+1:RETURN 


clipl: 

IF x1>=x1 THEN x=x1:y=y1:GOSUB s 

IF x1<x1l AND x2<x1 THEN RETURN 

IF xi1<xl OR x2<x1l THEN y=y1+(y2-y1)* (x1-x1)/(x2-x1) :x=x1:G0SUB s 
RETURN 


clipr: 

IF xi<=xr THEN x=x1:y=y1:6GOSUB si 

IF x1>xr AND x2>xr THEN RETURN 

IF x1>xr OR x2>xr THEN y=yi+(y2-y1)* (xr-x1)/(x2-x1) :x=xr:GOSUB si 
RETURN 

clipu: 

IF yl>=yu THEN Be y=y1:GOSUB s 

IF yi<yu AND y2<yu THEN RETURN 

IF yi<yu OR y2<yu THEN x=x1+(x2-x1)* (yu-y1)/(vy2-y1) :y=yu:GOSUB s 
RETURN 

clipo: 

IF yi<=yo THEN x=x1:y=y1:GOSUB si 

IF y1l>yo AND y2>yo THEN RETURN 

IF yl1>yo OR y2>yo THEN a REFERENZ VL :y=y0:GOSUB si 
RETURN 


\ **%* Koordinaten holen *** 
pkt: 
xs(1)=x(tx,ty-s) :ys(1)=y(tx,ty-s) :p(1)=POINT (xs(1),ys(1)) 
xs(2)=x(tx,ty) :ys(2)=y(tx,ty) :p(2)=POINT (xs(2) ,ys(2)) 
xs(3)=-x(tx-s,ty) :ys (3)=y(tx-s,ty) :p(3)=POINT (xs(3) ,,ys(3)) 
xs(4)=x(tx-s,ty-s) :ys(4)=y(tx-s,ty-s) :p(4)=POINT (xs(4) ,ys(4)) 
lp=sp(1)+p(2)+p(3)+p(4) 
lpl=0:IF p(1)<0O OR p(2)<0O OR p(3)<0 OR p(4)<O THEN 1pi=1 
RETURN 


' 122 222 2 22 2 2 2 2 22 2 2 2 2 2 2 2 202; 


x *%*% Menue Auswertung ***%* 
‘ WERK AN A IT TI TI GI NZ I A TH A a a a a 


m: 
men=MENU (0) :meni1=MENU (1) 
ON men GOTO meni ‚men2,men3 
RETURN 


meni: 

IF meni=1 THEN f1=1:RETURN 
IF meni=2 GOTO sav 

IF meni=3 GOTO ende 

RETURN 


men2: 

IF meni=-far THEN RETURN 

MENU 2,far,1:MENU 2,meni1,2:far=men1:60SUB farb 
. RETURN 

men3: 

IF meni=mo THEN RETURN 

MENU 3,mo,1:mo=meni1:MENU 3,meni, 2: :fl=2 

IF ein<>1 THEN GOSUB farb 

RETURN 


s *** IFF Save-routine *** 
sav: 
IF £fl1<>0 OR ein=1 THEN RETURN 
frac=frac+1:nam$="FRACTAL'+STR$ (frac) :CHDIR "afo: " 
OPEN nam$ FOR OUTPUT AS 1 
PRINT #1, "FORM" ;MKL$ (401566) ; "ILBM" ;"BMHD" ;MKL$(20); 
PRINT #1, MKI$(320) ;MKI$(200) ;MKL$ (0) ;CHR$(5) ; 
PRINT #1, CHR$(0) ;MKI$(0) ;MKI$(0) ;CHR$ (10) ;CHR$ (11); 
PRINT #1, MKI$(320) ;MKI$(200) ;"CMAP" ;MKL$ (96); 


FOR f=0 TO 31 
NN #1,CHR$(fa(f,0)*16) ;CHR$(fa(f,1)*16) ;CHR$(fa(f,2)*16); 


PRINT #1, '"BODY'" ;MKL$ (4000068) ; :adr=PEEKL (WINDOW (8) +4) +8 
FOR xx=0 TO 4:e(xx) =PEEKL(adr+4*xx) :NEXT 

FOR yy=11 TO 210:yg=40*yy 

FOR xb=0 TO 4:e=e(xb)+yg 

FOR xx=0 TO 9:PRINT #1,MKL$ (PEEKL(4*xx+te)); 
NEXT : NEXT: NEXT 


PRINT #1, "CAMG'" ;MKL$(4) ;MKL$ (16384) ;:CLOSE 1 
RETURN 


' KERN I TH TH NH N U U U I 


> “*“#s Farb-Definitionen *** 
! WERK AN N I NT TI NG N N a a a a a 
farb: 
GOSUB rest 
IF mo=4 THEN GOTO farbi 
far: 
FOR f=0 TO 31:READ fr,fg,fb 
falf,0)=fr:falf,1)=fg:falf,2)-fb:PALETTE f,fr/16,fg9/16,fb/16 
NEXT:GOTO fb 


farbi: 
IF ein=1 THEN GOTO far 
FOR f=0 TO 31:READ fa(f,0) ,‚fa(f,1),fa(f,2)::NEXT 
FOR £f=2 TO 15 
falf,0)=-fa(f*2,0):fa(f,1)=fa(f*2,1):falf,2)=-fa(f*2,2) 
PALETTE f,fa(f,0)/16,fa(f,1)/16,fa(f,2)/16 
NEXT 
a=1.6 ' **% a = Kontrast bei Filled 2 *** 
FOR f=16 TO 30 
fa(f ,0)=fa(f-14,0)/a:falf,1)=falf-14,1)/a:falf,2)=falf-14,2)/a 
PALETTE f,fa(f,0)/16,fa(f,1)/16,fa(f,2)/16 
NEXT 
f=30 
fa(f,0)=(fa(1,0)+fa(31,0))/2 
fa(f,1)=(fa(1,1)+fa(31,1))/2 
falf,2)=(fa(1,2)+fa(31,2))/2 
PALETTE f,fa(f,0)/16,fa(f,1)/16,fa(f,2)/16 
f=31:PALETTE f,fa(f,0)/16,fa(f,1)/16,fa(f,2)/16 
f=1 :PALETTE f,fa(f,0)/16,fa(f,1)/16,fa(f,2)/16 


fb: 
IF ein=1 THEN PALETTE 31,1,0,0:PALETTE 1,1,1,1 
RETURN 


rest: ' *** Restore Farbset *** 
IF far=1 THEN RESTORE seti 
IF far=-2 THEN RESTORE set2 
IF far=-3 THEN RESTORE set3 
IF far=-4 THEN RESTORE set4 
IF far=5 THEN RESTORE set5 
IF far=-6 THEN RESTORE set6 


“ı* Farbsets r,g,b *** 


84.7, VRAD AED. 7.350 
9206,04,.10, 32,52, 10,.:8,72 

2177202 9,.1,1252130, 4, >13, 041,24 

.d, IR, 904,126, 15,05, 6 

7,15, 19,78,15,.39..295 39,719, 10 
30,19 ,39,- 145739, 29 712,°73,.48, 715 
14,:39,7.15,.15, 194,.-14,,12.712,.712:5098 
Bel, 9, 08, 2 ER, 0 


Bar En 1, 15, 8, 0,..195218,.0 
13,30. 549.0738..9,.19, 15,0, 385738, 0 

39.200039 ..020,.1920,. 0.19, 0,,0 
9,20.249,.,94.0, 15, 0,.:0,:.0,:14,..0 
9:7414,..0,..0, 14, 0, 0.14, 0 
Ben 15. 0. 0,2.13,..0, 05-15 
0, 39 NED, 0..0,:15,.15, 0, 15 

15.0, 13 38.13, 0,.:18,:7,,7757 


0, 0,:49.,539, 00876, 7278,35, 
3,9, 95 IE 1057 43,09 11 
12, 19 2033.23. 222. 342.179 
0,713, 18, BE 2. 3778 EA 
6,13, 8, 8,739500279, 15,452 1 
12.:,19,. 2, 14m 19008: 13.18, 12,.49,: 14 
13,19, 6. 225232799.332,:.11, 9, 142210 
10, 9,.19, Sswengs rd, 7,112, 7,0 


0. 00.,..0, 19, Wan, 1, 35,0 

14,.:,0,.4,.14, 0, 9,.33, 0, 7,:13,.0 

22.40-10.12 50, 09,12, IE0 
18,7305 0, 15, 10720, 220:.30,° 1,13, 19, 2 
13,9, 3, 12..9,.4,.1100975947,10, 9, 5 
10,8,:6,.9, 8,7,18,78.2823:9,:8 5 
29, 10..92 10.30, 30,12. 212.330232, 12, 10 
32. 12, 11, 193, 195512 72397774) 712,0, 0,48 


0.0, 0,492..0. O9 Br 7 
39:5 19, 7,18, 1220655 785850,6,738.29 >85 
33, 9, 4,.19, 7 EEE ie, 2 
15,4, 3, 14, 6,.4,.714, 4.5, 14, 3,6 
19,79, 75:18... 2,77 1 043,219 
13:1, 10,42. 0,1117.2927. 8572, >12; :9), 
31,:03.20, 11270, SR 10,0, 
10:05:42, 0,22 I EOS RD 0,35 


8,0, 0,.0,0,::205 379008206, 12 

4: .6542,.5, 70038, 6,8.038..7.9, 11 

02:10, 31, 9,718.. 11, 03098, 312,32.:11 
13,..13,..11,.11,.39,. SR 53779,..42, 11,210 
22,115. 34, 123940, -402237092.32.:43,:8,-12 
14, 7, 135,14, 6,.19,,197.6, 14,034,.7, 14 
14.8, 14, 14579, 13, 3480789337 14,17. 13 
14,12, 12, 14, -13::12, 14,734,.212, 15, 35..18 


SCREEN CLOSE 1:MENU RESET 
END 


Am einfachsten bestellen Sie 
mit diesem Coupon. 
Ausfüllen, abtrennen und 
ausreichend frankiert im 
Kuvert ab die Post an: 
CW-Publikationen 

Vertrieb RUN 

Postfach 40 04 29 

D-8000 München 40 


TE REN 


Ich verschenke RUN zum Bezugspreis von DM 68.— 
(12 Ausgaben), inkl. MwSt. und Lieferung „frei Haus". 
Auslandsendpreis: DM 78.—, für die Schweiz sfr 74.- 
Luftpostversand auf Anfrage. 


Adresse des Bestellers (Rechnungsanschrift) 
Name Vorname 


Straße, Nr./Postfach 


PLZ Wohnort 


Datum terschrift 
Adresse des Beschenkten: 
Name Vorname 


Straße, Nr./Postfach 


u BT 


PLZ Wohnort 


Macht Spaß, ist nützlich 
und kommt 12 mal pro 
Jahr ins Haus. Ein 
Geschenk mit bestem 
Erinnerungswert. 


CW > PUBLIKATIONEN 


Ihre starke Verbindung zur Computerwelß 


\Geschenk-Abo Bestellcoupor 


Laufzeit des Geschenkabonnements: 


[] Das Abonnement soll sich nach einem Jahr 
automatisch um weitere 12 Monate verlän- 
gern, wenn es nicht acht Wochen vor Ablauf 
gekündigt wird. 
Das Abonnement soll auf ein Jahr (12 Ausga- 
ben) begrenzt sein. 


Garantie: 

Ich weiß, daß ich diese Vereinbarung innerhalb von 
8 Tagen bei der Bestelladresse widerrufen kann. 

Zur Fristwahrung genügt die rechtzeitige Absendung 
des Widerrufs. Ich bestätige dies durch meine zweite 
Unterschrift. 


Datum Unterschrift 


Gewünschte Zahlungsweise: 
[ Bequem und bargeldlos durch Bankabbuchung 


Geldinstitut 


Bankleitzahl (vom Scheck abschreiben) 


Kontonummer/Inhaber 


Gegen Rechnung, zahlbar sofort nach Erhalt 


Korrektor 12... mE 


Eintippen ohne Fehler 


In RUN werden zwei Arten von Pro- 
grammen veröffentlicht: Basicpro- 
gramme und Maschinenprogramme. 


amme werden zur Vermei- 
dung von Tippfehlern am besten mit 
dem Korrektor eingegeben. Nach je- 
dem RETURN gibt er eine Prüfsumme 
aus, die mit der Prüfsumme im Listing 
übereinstimmen muß. 
Die Basiclader zu den Korrektoren für 
den C64 und den C128 stehen auf Sei- 
te 90. Nach dem Einpoken der Daten 
aktivieren sie den Korrektor. An- 
schließend ist NEW einzugeben. Auf 
Wunsch speichern sie den fertigen 
Korrektor auch ab. Er kann dann mit 
LOAD "49152 KORREKTOR",8/NEW/ 
SYS 49152 für den C64 und mit BLOAD 
"4864KORREKTOR128"/SYS 4864 für 
den C128 gestartet werden. Der C64- 
Korrektor arbeitet auch mit Simons’ 
Basic. Dazu läßt man das erste Komma 
in Zeile 5000 weg. Simons’ Basic muß 
vor dem Korrektor gestartet werden. 
Der Basiclader des Korrektors für den 
C16/116/Plus/4 steht auf Seite 91. Er 
verfügt über keine eigene SAVE-Rou- 
tine. Nach RUN kann man beim ent- 
sprechenden Hinweis den fertigen 
Korrektor abspeichern. Nochmaliges 
RUN startet das Programm. 


Steuerzeichen sind bei den Basic- 
listings immer in Klartext übersetzt, so 


bedeutet [3LEFT], daß dreimal Cursor 
links gedrückt werden muß. 
Maschinenprogramme können nicht 
direkt eingegeben werden. Dazu ist 
ein eigenes Programm nötig. Hier gibt 
es zwei gleichwertige Möglichkeiten: 
Basiclader oder Hexdump. 

Ein Basiclader ist ein Basicprogramm, 
das ein Maschinenprogramm im Spei- 
cher unterbringt. Dazu werden die 
Zahlen, aus denen das Programm be- 
steht, aus DATA-Zeilen ausgelesen 
und mit dem POKE-Befehl in den Spei- 
cher geschrieben. 

Bei einem Hexdump liegen die glei- 
chen Zahlen in hexadezimaler Form 
vor. Sie werden mit einem speziellen 
Eingabeprogramm, dem Checker 
(Seite 91), im Speicher abgelegt. 

RUN druckt Maschinenprogramme 
als kombinierte Hexdump-Basiclader 
ab. Damit werden zwei Fliegen mit ei- 
ner Klappe geschlagen: Dasselbe 
Listing kann einmal als Basiclader, 
einmal als Hexdump betrachtet wer- 
den. Der Leser kann sich so die Einga- 
bemethode aussuchen, die ihm am 
meisten zusagt. Listing 1 zeigt ein sol- 
ches Doppelprogramm. Es legt ein 
Beispielprogramm von 32 Byte Länge 
im Bereich ab 49152 ($C000) ab. 
Listing 2 und 3 zeigen, welche Teile 
vom Listing 1 jeweils wichtig sind, 


wenn man das Programm als Basicla- 
der nutzt oder wenn man es als Hex- 
dump verwendet. 

Für den Basiclader ist alles von Inter- 
esse außer den Angaben „C000" bis 
„C018" ganz links. Sie sind unbedingt 
wegzulassen! Übrig bleiben vier Ba- 
siczeilen mit den Nummern 10 bis 40, 
die Hexzahlen aus DATAs enthalten. 
Abschließend ist noch der Teil mit 
den Nummern 60000—60090 in Listing 
l einzugeben. Er liest die DATAs und 
poket sie in den Speicher. Dieser Pro- 
grammteil ist bis auf Zeile 60000 bei je- 
dem Hexdump-Basiclader gleich. Er 
ist mit Prüfsummen für den Korrektor 
versehen. Bei den DATA-Zeilen wur- 
de darauf verzichtet, da der Basicla- 
der über ein eigenes Prüfsystem ver- 
fügt, das Eingabefehler weitgehend 
verhindert. 

Bei Verwendung als Hexdump muß 
der Checker benutzt werden. Einzu- 
geben sind dann nur die Hexzahlen 
(siehe Listing 3). Es fallen also die Ba- 
siczellennummer, das Basicwort 
DATA dahinter und die Kommas zwi- 
schen den Hexzahlen weg. Die Hexa- 
dezimaladressen „C000" bis „CO018" 
brauchen auch nicht eingetippt zu 
werden, da sie vom Checker geliefert 
werden. Sie sind nur zur Orientierung 
abgedruckt. Ebenso entfallen die Zei- 
len 60000—60090. 


co80 18 data a9,00,8d,af,cf,8d,b®,cf, a9 pruefsummenfehler"”;f=-f+1 


c808 28 data Bd,b1,cf,8d,b4,cf,8d,b5S, db 60838 gosub 688908:next a:print ” 2267 
c®18 38 data cf,85,5c,85,5d,a2,fB,8e, 46 Cdown]”f"fehler”:end 
c018 48 data b2,cf,08,68,8d,b3,cf,20, 2c 60048 read h$:gosub 60950: h-=1* 2715 
16:h$=-mid$ Ch$,2) 
60008 For a-439152 to 49176 step 1254 60058 l=-asc Ch$+”"x”")-4B:if 1<Q 3198 
8:s"8:c=®:for b=® to 7: or 1>22 then 60988 
gosub 69040 60068 if 1<18 then return 1044 
690018 s=-s+h+l-c:c=s>255:5=-255-s 5034 60078 1=1-7:if 1>9 then return ah 
and 255:poke a+tb,h+l:next 60088 F$="[rvsleingabefehler”:1=- 2468 
b:gosub 69048 ®:f-f+1 
60028 F$="pruefsumme ok”:if st> 5633 60098 print "zeile” peek (64)* 2726 


h+l then f$="[rvs] 256+peek (63)f$:return 


: Beispiel für einen kombiniert 


10 data a9,00,Bd,af,cf,8d,bQ,cf, a9 c808 a3 00 8d af cf Bd bB cf 39 
e® data Bd,bil,cf,8d,b4,cf,8d,bS, db c808 Bd bil cf Bd b4 cf Bd 65 db 
30 data cf,85,50,85,5d,a2,fB,8e, 46 c81® cf 85 Sc 85 Sd a2 f8 Be 46 
40 data b2,cf,08,68,8d,b3,cf,80, 2c c818 b2 cf 08 68 Bd b3 cf 08 2c 
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DV ES SNEFDEEE EDEL 


18 restore :for a-=493152 to 49629: poke 


a,234:next :print ”moment! 


20 f-0:read a:y=-peek (63)+peek (64)* 


856:if a=® then 298 


30 read b,c:for d=a to b:read a$:if 


len (a$)-2 then 98 


40 e=asc (a$)-48-(7 and aS>”"@"):if as 


"9”.or a$>”g” or a$>”:” and a$<"a” 
then 98 


SO a$-mid$ (a$,2):e=e*l6b+tasc (a$)-4B- 


(7 and a$>”@”) 


60 if a$<”0” or a$>”f” or a$?"3” and 


a$<”a"” then 398 


78 F=-f+e:poke d,e:next :if f=c then 208 
88 print "pruefsummenfehler: soll”c”, 


ist”f:goto 188 


98 print "eingabefehler: "”a$:y-® 
1808 z-peek (63)+peek (64) *256:a$-str$ 


(y)+str$ (-z):if y=® then a$=str$ 
(z) 


118 print ”[down]11”a$”[2up)”; :poke 


198,1:poke 631,13:end 


208 print "CdownlJfertig.”:print "[down] 


soll das maschinenprogramm 
abgespeichert 


218 input ”"CupJwerden[2spaces] j[3left]” 


;aS:if a$>”j” then 302 


220 sys 57812”@:49152 korrektor”,B:poke 


193,80:poke 194,192:poke 174,222 


230 poke 175,193:sys 62957: verify 


45152 korrektor”,B,1 


308 a$="":input ”"[down]Jkorrektor 


aktivieren? J[L3left]";a$:if a$="j" 
then sys 49152 


999 rem hauptprogramm 
1008 data 43187 ,49208,2342,39,ae,a2,c®, 


8d4,02,03,8e,03,03,20,a8,1f,b9,e2 


Korrektor für den C64, Disk-Version 


200 


210 


print ”Cdown]lfertig.”:print ”[down] 
soll das maschinenprogramm auf 


kassette 

input "abgespeichert werden 
C2spaces]j[3left]”;a$:if a$<>”j” 
then 3980 


trap 


648:bank ®:restore :print 


"moment... 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


13900,39,00,8d,00,ff,ad,82,036 

03,ae,83,03,c9,67,d8,8c,e8,8b5 
13,d0,08,ad,35,14,ae,36,14,d96 
b9,14,84,35,14,8e8,36,14,a8,a89 
27,a9,30,99,37,14,88,10,fa,S8e 
a93,67,a2,13,8d,82,03,8e,03,9b8 
03,4c,53,fa,d8,20,24,c0,08,3la 
a0,27,b9,37,14,99,c0,07,88,d27 
18,F7,85,d7,30,17,39,18,c5,9cc 
eb,f8,06,c5,e4,d8,02,c6,e4,388 
c5,e5,d0,02,c6,e5,a9,00,8d,aaS 
61,03,28,4c,69,fa,78,a2,13,2f1 
8e,15,03,a2,38,8e,14,03,58,7£7 
a2,ff,86,3c,20,93,4f,86,3d,dia 
84,3e,ad,37,14,c9,a0,F0,10,2d3 
a2,19,bd,37,14,9d,45,14,a9,315 
a0,9d,37,14,ca,10,f2,20,80,ee6 
03,aa,f®,cc,90,03,4c,d9,4d,a5® 
20,20,50,20,0a,43,84,0d,a0,014 
00,84,09,84,0b,84,0c,84,03,567 
88,c8,20,c9,03,aa,f0,38,a5,b5a 
09,30,0c,e8,20,fd,f1,e®d,3a,3be 
f0,0c,e8,8f,f0,28,e0,22,d8,2b9 
02,49,80,09,01,85,09,Ba,a6,28e 
0a,f0,06,04,69,00,ca,d®,fa,625 
18,65,0b,85,0b,90,02,e6,0c,dib 
e6,03,a5,0a,29,07,85,83,18,bb4 
c1,46,09,90,17,a0,ff,a2,16,491 
20,10,14,c8,39,bd,99,37,14,965 
a2,0b,20,180,14,39,bb,99,37,a6b 
14,4c,ea,4d,84,09,b5,00,85,b73 
65,b5,01,85,64,a2,90,38,28,e22 
75,8c,280,44,Be,a4,09,aa,c8,ffb 
bd,00,01,F0,08,09,80,99,37,887 


Korrektor für den C128 


August/87 
ER ee 


. 


1001 
1002 


1003 
1004 


190085 
1006 


1007 
1008 
1003 
1810 
1011 
1012 
1013 


1999 
2000 


2001 


2999 
3008 


3821 
4938 


4999 
5908 


Korrektor = mem 


data c1,99,080,04,88,10,F7 

data 49323, 49387,9136,4c,31,ea,78, 
a9,2e,a2,c0,8d,14,03,88,15,23,58 
data a9,080,8d,e1,c1,20,60,a5,8c,el, 
c1,86,73,84,7b,ac,e®,c1,f0,13,a8 
data 10,b9,e1,c1,99,f1,c1,a9,a8,99, 
e1,c1,88,d0,f2,8c,e8,c1,20,73,0® 
data aa,f®,d3,88,84,3a,90,55 

data 49467,49629,19958,4c,96,a4,4c, 
08,af,20,6b,a9,20,79,35,84,2b,a® 
data 00,84,08,84,45,84,46,84,29,c8, 
be,ff,901,f0,38,85,88,30,0c,e8,28 
data fO,f2,e0,3a,f0,0c,ed,8Ff,f®,28, 
ed,22,d0,02,49,80,09,01,85,08,Ba 
data 365,09,f0,06,03,69,00,ca,d®,fa, 
18,65,45,85,45,90,02,e6,46,e6,09 
data a5,09,29,07,85,09,10,c2,456,08, 
99,21,a0,ff,8c,ed,ci1,a2,14,20,b9 
data c1,c8,a9,bd,99,e2,c1,39,be,c8, 
99,e2,c1,c8,a2,45,280,b9,c1,39,bb 
data 99,e2,c1,4c,a4,a4,84,08,b5,00, 
85,63,b5,01,85,62,a2,90,38,20,49 
data bc,20,df,bd,a4,08,34,c8,bd,928, 
01,F0,08,09,80,39,e2,c1,eB,d0,f2,68 
rem ein/ausschalter 

data 49152,49186,5131,3d,03,03,c9, 
c0,d0,09,ad,de,c1,ae,df,c1,4c,27 
data c®,Bd,df,c1,ad,82,03,8d,de,ci, 
a9,30,a2,1f,Sd,e2,c1,ca,10,fa 

rem eingabesicherung 

data 49285, 49322,4626,ad,el,c1,d®, 
21,8d,28,d0,8d,21,d0,35,da,30,8e 
data 09,80,85,da,a0,27,39,20,99,28, 
04,88,10,fa,86,d6,d0,05,39,11,20, 
35,eb 

rem ende bzw. simon’s anpassung 
rem duch weglassen des 1, kommas: 
data ‚49293,49295,702,ea,ea,ea, 


220 sys 57812”49152 korrektor”,1,1:poke 


230 
240 


618 


640 


193,8:poke 194,192:poke 174,222 
poke 175,193:sys 62957:print "bitte 
die kassette zurueckspulen und 
input "return druecken”;a$:verify 
49152 korrektor”,1 


Korrektor für den C64: Anpassungen für Datasette 


data 14,e8B,d0,f2,6®,"4c4,37282 
a=-1:for n=® to 345:read a$:on len 
(a$) goto 4790,490,510,538,558 


print ”data-fehler [rvs)”a$ 

print ”zeile ” peek (65)+peek (66)* 

256:end 

b=dec (a$):poke a,b:p*p+tb:a=a+l 

k=-xor ((k*2 and 4895)+int (k/2048), 

b):goto 578 

if k=-dec (a$) then k=®:goto 578 
print "fehler: parity soll ” mid$ 

C hex$ (k),2):goto 480 

if a<® then a=dec (a$):p-a:goto 578 
print "pruefsumme fehlt!”:end 

if pC>val (a$) then print 
"pruefsummenfehler!":end 

a1 

next :if a>® then 549 

print "fertig.”:print ”[down]soll 
das maschinenprogramm 
abgespeichert 

print "werden?”:get key a$:if a5 
”j” then 618 z 

bsave "4864korrektor128”,b®, p4864 
to p5173:print ds$ 

print "Cdownlsoll der korrektor 
gestartet”:print "werden? 

trap :get key d$:if a$="j" then sys 

4864 

end 

if er-14 then resume 4Bd:else if er 
=38 then resume 568 

print "eingabefehler: "” err$ (er): 
help 

trap :stop 


print ”C[clr)Idas programm sollte vor dem ersten 


n-n+l:read a$:a=-a+tdec (a$):if len (a$)=2 then 389 
[rvs]”a$:poke 1264, peek (63): 


a=-peek (65)+peek (66)*256-len (a$)-1:poke 1269,a 


if er=-38 then print ”break kann das programm 


if er<>13 then print "zeilen-eingabefehler!":help 


restore :for a=4897 to 4354:read a$:poke a,dec 


print "das korrektorstarterprogramm kann jetzt 


418:restore 330 data b5,00,85,63,b5,01,85,62,a2,90 
118 data 8c,10,c1,07,9e,28,34,31,33,38 340 data 38,20,ce,a2,20,71,a4,a4,08,aa 
120 data 00,20,00,ad,e5,07,c9,18,d®,03 358 data c8,bd,88,01,F0,08,09,80,99,c® 
138 data ce,e5,07,ad,e8,07,c9,18,d0,03 368 data 2f,e8,d®d,F2,60,00,00,08 
140 data ce,e8,07,39,00,8d,f1,07,4c,®e 378 
158 data ce,a9,39,8d,02,03,a9,10,8d,03 startabgespeichert werden! [down] 
168 data 03,39,11,85,2c,60,82,10,8e,15 380 
170 data 03,a2,ff,86,33,20,53,88,86,3b 398 print "data-Fehler: 
188 data 84,3c,ad,c®,8f,c9,a8,f8,18,a2 poke 1265,peek (64):poke 1263,1 
198 data 19,bd,c®,2f,9d,ce,df,a9,a0,3d 498 
208 data c®,2f,ca,10,F2,20,73,04,aa,f® and 255:poke 1270,a/256:help :end 
218 data d3,90,03,4c,25,87,20,3e,8e,20 418 
220 data 53,89,84,0b,a0,00,84,08,84,45 zerstoeren! ”:end 
230 data 84,46,84,09,88,c8,20,a5,04,aa 428 if er=14 then resume 399 
240 data F0,38,a5,08,30,0c,e8,20,F0,f1 438 
2508 data e®,3a,f0,0c,ed,Bf,f0,28,e0d,22 :end 
260 data d®,02,49,80,293,01,85,08,Ba,a6 440 if n<>259 or a<>27332 then print 
270 data 09,f0,06,04,69,00,ca,d®,fa,18 ”pruefsummenfehler, bitte pruesfen!":end 
280 data 65,45,85,45,90,02,e6,46,e6,09 450 
290 data a5,09,29,07,85,09,10,c1,46,08 (a$):next 
300 data 990,17,a0,ff,a2,14,20,db,18,c8 468 
318 data a9,bd,39,c®,0f ,a2,45,20,db,18 abgespeichert werden. 
328 data a9,bb,99,c0,0f,4c,36,87,84,08 478 poke 45,3:poke 46,17:cir 


Korrektor für den C16/116/Plus/4 


Checker für 


Maschinenprogramme 


Der Checker dient zur komfortablen 
Eingabe von Maschinenprogammen. 
Er reduziert die Tipparbeit und ver- 
hindert Eingabefehler. Außerdem 
entfällt das langwierige Einlesen von 
Datazeilen. 

Der Basiclader des Checkers steht 
auf Seite 92. Er poket nach dem Start 
mit RUN die Daten in den Speicher. 
Da er sich dabei selbst überschreibt, 
muß er unbedingt vorher abgespei- 
chert werden! Nach dem Einlesen der 
Daten schreibt der Lader einen 
SAVE-Befehl auf den Bildschirm, so 
daß man nur Return zu drücken 
braucht, um den fertigen Checker ab- 
zuspeichern. Dieser kann dann mit 
LOAD "CHECKER",8 geladen und mit 
RUN gestartet werden. Will man den 
Checker mit der Datasette benutzen, 
muß man bei der Diskversion einige 
Zeilen ersetzen (siehe Listing unten). 
Der Checker ist eine Art Texteditor 
für Maschinenprogramme, die in 
Form von Hexdumps abgedruckt 
sind. Jede einzelne Zeile (zu je acht 


data 


VERBRERAR 


Bytes) wird anhand einer miteinzuge- 
benden Prüfsumme auf Richtigkeit ge- 
testet. Bei Tippfehlern ertönt ein aku- 
stisches Signal. Die hexadezimalen 
Daten werden mit den Tasten 0-9 
und A—F eingegeben. Mit RETURN 
übernimmt man eine Zeile in den Spei- 
cher. Stimmt die vom Computer er- 
rechnete Prüfsumme mit der eingege- 
benen überein, ertönt ein hoher Ton. 
Bei einer fehlerhaften Zeile ist ein tie- 
fer Ton zu hören, und der Cursor 
springt wieder an den Zeilenanfang. 


Weitere Funktionen kommen folgen- 
den Tasten zu: 


Y: Muß vor dem Eintippen eines Pro- 
gramms als erstes betätigt werden! 
Der Checker fragt dann nach der 
Startadresse, unter der das Programm 
später abgespeichert werden soll. 
Der benötigte Wert ist jeweils den 
Programmbeschreibungen zu entneh- 
men. 


Cursortasten: Der Cursor wird mit 
den Cursortasten gesteuert. Erreicht 


Checker für den C64: Änderungen für Datasette 


RHEIN LIIT ER VE Rh 


er den oberen oder unteren Bild- 
schirmrand, wird gescrollt. 
INST/DEL: Löscht ein Zeichen oder 
fügt eines ein. 

HOME: Setzt den Cursor an den Zei- 
lenanfang. 

CLR: Löscht eine Zeile und läßt sie zur 
Veränderung frei. 

K: Löscht eine Zeile und zieht den 
Rest nach oben. 

I: Fügt eine Leerzeile ein. 

H: Setzt den Cursor an den Textan- 
fang. 

S: Speichert das Programm ab. Sollte 
sich im Text eine Leerstelle befinden, 
springt der Cursor dorthin. Saven ist 
erst möglich, wenn alle Leerstellen 
entfernt wurden. 

L: Lädt ein abgespeichertes Pro- 
gramm, um es zum Beispiel zu ergän- 
zen oder zu verändern. 

P: Druckt das Programm aus. 

Wird der Checker mit Runstop/Re- 
store verlassen, so kann man ihn mit 
SYS 2073 ohne Datenverlust wieder 
aktivieren. 


00,20,02,20,bd,ff,68,86,93,66,3d,4c,5b, ff, ff 4592 |135 data d®d,f4,b9,75,0d,9d,08,3c,4c,19,08,4c,92,09,30 
data 2a,0f,S9,00,04,c8,d®,a0,01,b1,b2,85,fd,c8,bl 3942| 138 data c3,ff,4c,92,09,20,de,2d,b0,53,20,fd,®de,29,d® 
data b2,85,fe,38,4c,7d,f5,a9,00,20,fd,De,ea,ea,28 “4777 |139 data £f7,20,38,f8,b0,3b,20,8F,f6,a5,1b,85,ae,a5,1c 
data fF8,0f,20,d0,£7,20,17,f8,b0,58,20,af,f5,a5,b7 4369 | 149 data 38,e9,40,85,af,a5,fe,85,c2,a5,fd,85,c1,18,65 
data f0,07,20,ea,f7,30,09,b®,4a,20,2c,f7,f®0,45,b® 3998 | 141 data ae,85,ae,a5,af,65,02,85,af,a9,01,20,6a,F7,b® 
data 43,a5,90,29,10,d0,3d,85,c3,a9,40,85,c4,20,6a 4518 | ı42 data 13,39,00,85,c1,a9,40,85,c2,a5,1c,85,af,a5,1b 
data 2f,b0,32,8a,69,07,aa,90,02,e6,af,86,1d,8a,29 4392| 143 data 85,ae,20,67,f8,4c,19,08,20,08,85,1d,390,df,e6 
data 38,4a,4a,4a,aB,a5,af,38,e9,40,06,1d,28,06,1d 4851 | 258 print "Cclr,2downJsave” chr$ (34)”checker” chr. 
data 2a,85,1d,a2,08,e4,1d,f®,08,a9,ff,3d,00,3c,e8 3943 (34) ”Chome]”; :end 


August/87 IUYD 85 


voununkzwne 
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data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


0b,08,c1,07,9e,32,30,36,34,0®, 

a9,80,85,fd,85,fe,20,f8,0Ff,20,Ba ‚a9,3F,8d 
8a,02,39,18,84,05,dc,20,2F,08,20,33,0a,4c,26 
08,20,27,03,a9,00,85,c6,85,c6,f®d,fc,298,27,0a 
8d,77,02,60,39,00,8d4,20,d0,a9,de,8d,21,d0,a8 
00,32,d8,84,1b,84,1f,86,1c,86,20,39,04,85,1e 
84,1d,39,20,91,1b,39,a0,31,1d,c8,d0,fS,e6,1c 
e6,le,e8,e8,dc,dd,ec,a2,17,80,55,39,06,31,1F 
c8,91,1F,c8,c8,c0,6c,90,£3,c8,c8,39,06,391,1£ 
c8,91,1f,a5,1f,18,69,28,85,1Ff,90,02,e6,20,ca 
d®,da,a®,05,a2,30,a9,b0,39,00,04,83,29,80,39 
01,04,c8,c8,c8,e8,20,38,d®,ed,a2,06,bd,see,08 
99,00,804,c8,ca,d®,Ff6,60,a0,50,29,04,84,1b,85 
1c,89,17,85,02,85,61,85,19,a5,62,85,1a,20, 5 
08,45,19,18,69,08,85,19,90,02,e6,1a,a5,1b,18 
69,07,85,1b,90,02,e6,1c,c6,02,d0,e3,60,8d4,95 
93,8b6,88,83,a5,fd,18,65,19,48,a5,fe,65,1a,20 
66,09,68,20,66,09,20,83,09,85,19,85,1d,a5,1a 
18,69,40,85,1e,a5,1a,85,1f,a5,19,0a,26,1f,®a 
25,1f,a9,30,85,20,a5,19,4a,4a,4a,29,07,28,b9 
98,09,80,08,31,1f,f0,22,80,00,84,0d,b1,1d,20 
66,09,20,83,09,24,0d,c8,c0,08,d0,ef,20,2a,0b 
20,83,09,20,83,09,20,66,09,4c,65,09,a2,1c,a® 
00,39,a80,31,1b,20,83,09,ca,d®,f4,60,4B,4a,4a 
4a,4a,20,74,09,68,29,0f,4c,74,09,18,69,f6,90 
02,69,06,69,ba,29,bf,a0,808,91,1b,e6,1b,d®,092 
e6,1c,680,a9,20F,8d,18,d4,20,39,04,28,41,98,4c 
bd,08,80,40,20,10,908,04,02,01,89,50,a0,04,85 
1d,84,1e,a2,16,a0,27,84,20,a9,4f,85,1f,a4,1F 
bl1,1d,a4,20,91,1d,c6,1f,c6,20,10,f2,a5,1d,18 
69,28,85,1d,90,02,e6,l1e,ca,d®,dc,a9,c0,85,1b 
a9,07,85,1c,a5,61,18,69,b8,85,19,85,62,569,00 
85,1a,4c,f5,08,a9,98,a0,07,85,1d,84,1e,a2,17 
a9,27,85,1f,a9,4f,85,20,a4,1f,b1,1d,a4,20,91 
1d,c6,20,c6,1f,10,f2,35,1d,38,e9,28,85,1d,b® 
02,c6,le,ca,d®,dc,a9,50,85,1b,39,04,85,1c,a5 
61,85,19,35,62,85,1a,4c,F5,08,84,63,b1,65,49 
05,91,65,60,89,00,85,61,85,62,29,00,85,63,85 
64,39,55,85,65,39,d8,85,66,60,c6,64,30,0c,85 
65,38,8e9,28,85,65,b0,02,c6,66,60,86,64,a5,61 
38,e9,28,85,61,b90,0b,c6,62,10,07,a9,00,85,61 
85,62,68,4c,e6,09,e6,64,85,64,c9,17,F0,0c,a5 
65,18,69,28,85,65,90,02,e6,66,60,c6,64,a5,61 
18,69,08,85,61,90,92,e6,62,a5,62,c9,3F,d®,0b 
a5,61,c9,08,d0,05,49,00,85,61,60,4c-,30,09,c9 
11,d0,03,4c,6e,0a,c9,91,d0,03,4c ,45,9a,c9,1d 
d8,03,4c,68,2b,c9,9d,d®,03,4c,3a,0b,c9,0d,d® 
03,4c,17,0c,c9,38,90,8Ff,c9,3a,90,08,c9,41,98 
07,c9,47,b8,83,4c,98,0b6,c9,13,d0,03,4c,9b,®c 
c9,93,d0,03,4c,95,0c,c9,14,d®,03,4c,e6,0c,c9 
34,d80,03,4c,bf,8c,c9,48,d0,06,20,30,0a,4c,bd 
08,c9,49,d0,03,4c,11,0d,c9,4b,d0,03,4c,85,0d 
c9,53,d80,03,4c,2d4,180,c9,4c,d0,03,4c,79,0F,c9 
59,d0,03,4c,68,10,c9,50,d0,03,4c,b2,10,60,a2 
08,a0,00,18,a9,00,71,1d,49,ff,c8,ca,d®,Ff8,68 
c6,63,85,63,10,03,86,63,60,c9,02,f0,F3,c9,05 
f®d,ef,c9,08,f0,eb,c9,0b,f9,e7,c9,0e,f®,e3,c9 
11,f8,df,c9,14,F0,db,c9,19,d@,df,a9,16,85,63 
60,e6,63,35,63,c9,1c,d0,03,c6,63,60,c9,02,f® 
f1,c9,05,Fd,ed,c9,08,f0,e9,c9,0b,fd,85,c9,de 
f®O,e1,c9,11,f0,dd,c9,14,f9,d9,c9,17,d0,af,a9 
1a,85,63,60,48,28,a80,0c,68,29,3f,09,80,24,63 
91,1d,4c,68,2b,a0,00,b1,1b,29,7Ff,c9,30,b0,902 
69,3a,e9,30,4c,83,09,20,28,06,04,0a4,0a,0a,85 
2d,20,a8,0b,05,0d,60,a5,65,85,1b,a35,66,29,03 
09,84,85,1c,20,04,0c,20,e8,8b,b9,98,09,85,67 
493,ff,a0,00,31,1f,91,1F,60,35,1e,38,e9,40,85 
1f,a5,1d,80a,26,1f,0a,26,1f,a9,3c,85,20,85.1d 
Y4a,4a,43,29,07,38,560,a5,64%,03,03,02,18,65,61 
85,1d,a5,62,69,00,69,40,85,1e,60,28,c8,2b,a® 
00,84,02,20,b9,0b,20,83,09,84,02,91,1d,c8,c® 
08,d8d,ef,20,83,09,28,83,09,20,b9,8b,85,0d,20 
2a,0b,c5,2d,f0,06,20,61,0c,85,63,60,35,67,a8 
00,11,1f,91,1f,a9,08,85,63,20,6e,da,39,a0,20 
6e,2c,a0,14,20,86,0c,4c,8f,0c,a9,3c,28,6e,®c 
&80,50,20,86,0c,4c,8f,2c,8d,01,d4,29,00,8d4,08 
d4,a9,11,8d,85,d4,a9,f1,84,806,d4,39,11,8d,84 
d4,68,a2,008,ca,d®,fd,88,d8,f8,60,a9,00,8d,04 
d4,60,20,c8,2b,20,bd,08,89,00,85,63,60,a5,65 
85,1d,a5,66,29,03,09,04,85,1e,60,208,01,03,04 
06,27,09,03,0c,2d,2f,10,12,13,15,16,1a,1b,28 
a8,0c,30,1b,bl,1d,c9,a0,d®d,1b,a2,11,bc,ad,®c 
c4,63,f0,0e,84,0d,ca,bc,ad,2c,b1,1d,34,0d,S1 
1d,d®d,eb,a9,a0,91,1d,60,20,30,0c,85,63,f0,f8 
a2,11,dd,ad,0c,f®,03,ca,10,f8,bc,ad,®c,bi1,1d 
ca,bc,ad,dc,91,1d,e8,e8,e®,12,dd,ef,a9,a0,a®8 
1b,91,1d,4c,3a,0b,29,04,0c,a9,f0,85,1f,a9,7Ff 


3850 
3822 
3590 
4917 
4143 
4078 
4525 
43396 
4432 
4844 
4386 
4595 
4237 
4314 
48399 
4298 
4634 
4573 
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4282 
40396 
3902 
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4237 
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4854 
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4487 
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4225 
4250 
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5117 
4184 
4952 
4544 
4265 
4298 
4036 
4156 
4032 
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4179 
4094 
49032 
4516 
4483 
4569 
3922 
4216 
4053 
3655 
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data 
data 
data 
data 


85,20,82,07,a9,0f,85,0d,Ba,a8,bi,1f,a4,0d,91 
1f,c6,0d,ca,19,f3,a5,20,c5,1e,d®0,86,a5,1f,c5 
1d,f®,0d,a5,1F,38,e9,08,85,1F,b0,d8,c6,20,d8 
d4,20,e8,0b,a36,1f,b9,75,2d,85,0d4,b9,7d,0d,a® 
00,31,1f,4a,08,85,02,b1,1F,25,0d,05,82,31,1F 
eB,f0,28,28,7e,00,3c,88,4c,65,0d,20,bd,08,28 
60,008,80,c0,e0,f0,f8,fc,fe,ff,7f,3F,1f,0F,07 
03,01,20,04,0c,a0,07,a2,0Ff,84,04,83,a8,b1,1d 
a4,0d,91,1d,ca,c6,0d,180,£3,a5,1d,18,69,08,85 
1d,90,02,e6,l1e,a5,1d,c9,f8,d0,dc,a5,1e,c9,7£ 
dß,d6,20,04,0c,20,e8,0b,a2,ff,18,08,28,3e,08 
3c,08,ca,e4,1f,d0,F6,b9,75,04,3d,00,3c,85,922 
bd,00,3c,28,28,39,7d,0d,85,02,9d,00,3c,4c,bd 
08,22,80,bd,00,3c,c9,ff,d0,03,e8,d0,f6,86,02 
ad,ff,e4,02,f0,3F,bd,28,3c,d8,05,ca,ed,ff,d® 
f2,36,22,bd,00,3c,85,02,20,00,85,02,39,98,09 
f0,03,c8,10,f6,84,0d,a9,80,85,62,8a,0a,26,62 
03,26,62,04,26,62,05,2d,0a,26,62,0a,26,62,0a 
26,62,85,61,20,36,04,38,60,30,87,bd,80,3c,d9 
75,0d4,F0,05,88,10,f8,30,bc,84,02,22,08,85,1c 
8a,0a,26,1c,0a,26,1c,0a,26,1c,05,0?,0a,26,1c 
03,26,1c,808,26,1c,85,1b,a5,1c,18,63,40,85,1c 
18,60,86,0d,85,1d,84,1e,a5,63,48,35,64,48,a5 
65,48,a5,66,48,a0,27,a9,30,39,00,04,88,10,F8 
a8,08,b1,1d,f®,09,20,2a,0F,99,00,04,c8,d0,F3 
a2,00,84,63,39,06,99,00,d8,99,01,d8,c8,e8,e4 
0d,d®,f7,a9,d8,85,66,49,00,85,64,85,65,85,20 
20,2f,08,48,29,60,d0,1a,68,c9,0d4,f0,2d,c9,14 
dd,ef,a5,20,f0,eb,c6,63,c6,20,39,a0,a4,63,39 
00,04,10,de,a4,20,68,39,00,02,c4,0d,f0,d4,a4 
63,20,28,0f,99,00,04,e6,20,e6,63,d0,c6,a4,20 
a9,00,99,28,02,68,85,66,68,85,65,68,85,64,6B 
85,63,60,48,29,20,a0,0f ,a2,0Ff,20,66,0e,98,a2 
00,20,02,20,bd,ff,68,38,22,08,39,08,20,ba,ff 
20,c0,ff,a9,01,4c,40,0Ff,46,49,4c,45,4e,41,4d 
45,20,00,48,4a,4a,4a,4a,4a,aa,68,29,1F,1d,38 
0F,69,00,28,80,c0,40,e0,c0,e0,a9,08,20,b4,ff 
a9,6f,20,36,ff,30,27,a9,80,39,08,04,a9,00,39 
00,d8,88,10,f3,a0,008,20,a5,ff,c9,0d4,f0,09,28 
2a,0f,99,00,04,c8,d0,f®,ad,00,04,2d4,01,04,29 
Of ,48,20,ab,ff,68,60,a9,00,20,fd,de,dd,6e,a2 
08,20,c6,Ff,a9,00,85,90,85,1b,20,cf,ff,85,fd 
2d,cf,ff,8d,fe,00,20,f8,0F,a9,3c,85,1c,a9,08 
85,02,85,1d,a9,40,85,1e,a5,390,d0,35,a0,00,20 
cef,ff,91,1d,c8,c0,08,d0,F6,a80,00,a6,02,bi,1b 
1d,98,89,91,1b,e6,02,eB,e0,08,d®,06,39,00,85 
02,e6,1b,a5,1d,18,69,08,85,1d,90,cf,e6,le,a5 
le,c9,80,d80,c7,20,cc,ff,a9,08,20,c3,Fff,20,30 
0a,4c,92,09,a9,00,85,c6,35,c6,f®,fc,d®,eb,a® 
00,938,99,00,3c,c8,d®,fa,50,20,cc,ff,a9,08,20 
c3,ff,4c,92,09,20,de,2d,b2,53,35,1b,48,a5,1c 
48,39,01,20,fd,0e8,85,1Ff,68,85,1c,68,85,1b,a5 
1f,d®,c5,39,00,85,1d,39,40,85,1e,a2,08,20,c9 
ff,a5,fd,20,d2,ff,a5,fe,20,d2,Ff,a5,1d,c5,1b 
d®,06,a5,1e,c5,1c,f0,94,30,08,b1,1d,20,d2, ff 
c8,c0,08,d0,f6,35,1d,18,69,08,85,1d,90,df,e6 
le,d®,db,4c,bd,08,32,04,a0,10,a9,88,20,66,de 
a9,0f,85,1b,39,04,85,1c,20,b9,0b,8d, fe, 20,28 
b9,0b,8d,fd,00,4c,92,09,41,4e,46,41,4e,47,53 
41,44,52,45,53,53,45,20,00,18,69,f6,90,02,69 
06,69,3a,4c,d2,Ff,48,4a,4a,4a,4a,20,98,10,68 
29,0f,4c,98,18,20,de,2d,b®,ae,a9,00,20,bd,ff 
a9,04,aa,a0,00,20,ba,Fff,20,c0,ff,a2,04,20,c9 
ff,a0,06,a9,20,20,d2,Ff,88,d0,f8,a2,07,80,00 
98,28,a4,10,a9,20,20,d2,ff,c8B,ca,10,Ff3,a0,85 
b9,6c,11,20,d2,ff,88,10,f7,a9,2d,20,d2,ff,20 
d2,ff,aS,fd,85,1f,a5,fe,85,20,39,08,85,1d,a9 
40,85,1e,a5,1d,c5,1b,d0,06,35,1e,c5,1c,f®,4e 
a5,20,20,84,10,a5,1f,20,a4,10,a9,20,20,d2, ff 
20,d2,fFf,a0,20,b1,1d,28,a4,10,39,20,20,d2, ff 
c8,c®,08,d0,f1,a9,20,28,d2,Ff,20,d2,ff,209,2a 
0b,20,84,10,a9,0d,20,d2,ff,a5,1f,18,69,08,85 
1f,90,02,e6,20,85,1d,18,69,08,85,1d,99,aa,e6 
le,d®,a6,20,cc,ff,a9,24,40,c3,ff,44,55,53,4b 
48,43,2d,2d,2d,2d,0d,24,84,68,c1,20,00,00,08 


for z=1 to 162:f$="” ok”:for b=® to 14 


read 


h$:gosub 388:h=1*16:h$=mid$ Ch$.2):oaosub 309 


poke 20834+z*15*+b,h+1 


next 


:print "zeile”z;f$:next 


poke 45,122:poke 46,17 
print "C[clr,2down]save” chr$ (34)”"checker” chr$ 
(34)” 8Chome]"”; :end 


l=asc (h$+"x”)-4B:if 1<8 or 1>22 then 338 
if 1<18 then return 
i=-1-7:if 1>9 then return 


1=-9:f$=" Crvsleingabefehler”:return 


RUN-Klinik ER RTHE 


Erste Hilfe bei Listingproblemen 


Zeile zu lang 

Als „Newcomer“ unter den Besitzern 
eines C64 stieß ich beim Abtippen des 
Praxislistings „Superformat“ auf fol- 
gendes Problem: Bei der Zeile 2130 
weigert sich der C64, mehr als zwei 
Zeilen zu akzeptieren. Die betreffen- 
de Zeile des Listings weist jedoch 
mehr als 80 Zeichen auf. 


Teufel im Detail 

Beide Leserfragen stehen stellvertre- 
tend für viele andere gleichlautende. 
Im ersten Fall ist eine Ausnahmerege- 
lung des Commodore-Basics Ursache 
für die Verwirrung. Fast alle Basic-Be- 
fehle lassen sich in abgekürzter Form 
eingeben. Ein schlichtes Fragezei- 
chen ersetzt zum Beispiel das Basic- 


müssen mindestens alle Abkürzungen 
neu eingegeben werden. Daher auch 
die Bitte an unsere Programmautoren, 
auf solche Zeilen zu verzichten und 
zwei Zeilen daraus zu machen. Eine 
weitere Besonderheit des Basics ver- 
ursacht die Probleme, die Herr Zwin- 
ge mit unserem Listing hat. Steht in ei- 
ner Zeile ein READ-Befehl, sucht das 


(Peter Fischer) wort PRINT und erspart damit vier Basic im Listing nach einem Wert, der 
Zeichen. Fast alle anderen Basic-Wör- hinter einem DATA-Befehl steht. Ein 
ter lassen sich abkürzen, indem der weiteres READ sucht nach dem näch- 
erste Buchstabe normal und der zwei- sten Wert. Solche READ-Befehle sind 
te zusammen mit SHIFT eingegeben meistens in eine FOR...NEXT-Schleife 

Programmfehler? wird (siehe Commodore-Handbuch). eingebettet und lesen somit die kom- 


Ich würde ja gerne meine Directories 
mit Ihrem Programm aus Heft 2/87 
managen. Leider funktioniert es nicht. 
In Zeile 39 meldet sich mein Computer 
mit einem Error, ich kann aber keinen 
Unterschied zu dem Abgedruckten 
finden. Entweder ist in Ihren Listings 
ein Fehler oder ich habe einen Au- 
genschaden. 

(Harald Zwinge) 


Diese Methode, Basic-Zeilen einzuge- 
ben, hat allerdings einen großen 
Nachteil. Wenn die Zeile mit den Ab- 
kürzungen mittels RETURN an den 
Computer abgeschickt worden ist und 
man listet diese Zeile neu auf, erschei- 
nen alle Basic-Befehle in voller Länge. 
Die Zeile ist jetzt über 80 Zeichen lang 
und kann nicht mehr editiert werden. 
Befinden sich Fehler in dieser Zeile, 


pletten DATA-Zeilen ein, um sie zum 
Beispiel in den Speicher zu poken. 
Fehler in diesen oft sehr umfangrei- 
chen DATA-Blöcken werden aber in 
den Zeilen gemeldet, in denen sich 
der READ- oder der POKE-Befehl be- 
findet. In den DATA-Zeilen von Herrn 
Zwinge muß sich demnach noch ein 
Tippfehler befinden — die Zeile 39 ist 
sicherlich korrekt eingegeben. 


Tabelle aller verwendeten 
Klartextausdrücke: 


Klartext Bedeutung Eingabe 
down Cursor abwärts CRSR oben/unten 
up Cursor aufwärts SHIFT + CRSR oben/unten 
right Cursor rechts CRSR rechts/links 
left Cursor links SHIFT + CRSR rechts/links 
home Cursor home CLR/HOME 
elr Bildschirm löschen SHIFT + CLR/HOME 
del ein Zeichen löschen INST/DEL 
inst ein Leerzeichen einfügen SHIFT + INST/DEL 
spaces Leerzeichen Leertaste 
shift-space unsichtbares Zeichen SHIFT mit Leertaste 
F1-F8 die Funktionstasten 1—8 
black schwarz CTRL +1 
wht weiß CTRL +2 
red rot CTRL +3 
cyn türkis CTRL + 4 
pur purpur CTRL +5 
grn grün CTRL +6 
blu blau CTRL +7 
yel gelb CTRL + 8 
IVs Revers-On CTRL + 9 
off Revers-Off CTRL +0 
shift SHIFT und ein weiteres 
Zeichen 
cbm CBM-(Commodore-)Taste 
und ein weiteres Zeichen 
asc .. ASCII-Code, gefolgt von Eingabe laut Commodore- 
einem Zahlenwert Handbuch 
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Reset- und Restore-Taste 


System: C64 
Art: Utility 
Sprache: Assembler 


Es gibt Profiprogramme, die sich nur 
mit dem Ausschalter beenden lassen. 
„Resetschutz" bewirkt diesen Effekt 
auch bei eigenen Programmen. Wird 
während des Programmablaufs die 
Reset- oder Restore-Taste gedrückt, 
so wird das eigene Programm neu ge- 
startet. Die Run-Stop-Taste ist mit die- 


überlistet 


Erweiterungsmodule 
‚und viele Spiele sind 
immun gegen die Re- 
settaste. Mit der klei- 


nen nachstehenden 


Routine können auch 
eigene Programme ge- 
schützt werden. 


sem Utility vollständig gesperrt. Will 
man ein Basic-Programm schützen, so 
wird das Programm einfach um den 
nachstehenden Basic-Loader ergänzt 
(Listing 1) — und schon gewinnt das ei- 
gene Programm einen Hauch von pro- 
fessioneller Programmierung. ÄAußer- 
dem wird es für Unbefugte schwierig, 
in das Programm einzusehen. Bei Ma- 
schinenprogrammen wird die Routine 
(Listing 2) dem eigenen Programm 
vorangestellt. 


(. Hammerschmidt) MEN 


rem (dieses quellprogramm ist auf den 
1 rem profi-ass abgestimmt) 


® rem »** listing 1 *** @ open 1,4 
i rem 5 sys 9*4096 
2 For t-530808 to 53089:read a:poke t, 3620 8 ; **# listing 2 + 
a:5=-s+ta:next 35 
3 if s<>10372 then print ”fehler in 2339 18 .opt pl,oo 
datas”:end 30 ldx #5 ; "cbm8®” aus rom lesen 
4 clr :sys 539000 656 40 copy lda SFdof, x ; und nach $B004- 
5 data 169,128,197,46,240, B, 176,9,165, 5971 45 sta 58003,x + 58088 schreiben 
45,240,5,162,16, 76, 58 S® dex 
6 data 164,169, 127, 133, 56,169,255,133, 6467 60 bne copy 
55,162,5,189; 25; 253,1 78 lda #<neu ; lo-byte 
7 data 128,202, 20 247 168. 66,141,0, 6046 80 sta 58000 
128,141,2,128,169,207,141,1 98 sta 58082 
8 data 128,141,3,128, 169,52, 141,20,3, 59300 100 Ida #>neu ; hi-byte 
96,32,163,253,32,83,228 118 sta $8901 
9 data 32,91,255,88,169,82,141,119,2, 5831 120 sta 58003 
169,213,141,120,2,169,13 125 ; 
10 data 141,121,2,169,3,133,198,108,2, 3738 130 neu jsr $fda3 ; interrupts vorbereiten 


160 


15 rem jetzt das eigene programm 


Resetschutz für Basic... 


148 jsr Se453 
150 jsr SFFSb 


160 cli 


; basic-vektoren setzen 
; video-reset 
; interrupts erlauben 


178 ; jetzt das eigene programm 


. und Maschinensprachepr 


amme. 


Fehlersuche 


auf der Diskette 


System: C64/Floppy 
Art: Utility 
Sprache: Basic 


Gerade bei billigen Disketten treten 
oft Readerrors auf. Mit dem „Turbo- 
Disk-Tester“ kann man solche Fehler 
schnell und sicher aufspüren. Nach 
dem Start des Programms mit „RUN“ 
wird die zu testende Diskette (forma- 
tiert!) in das Laufwerk gelegt. Mit „F1" 
beginnt der Test. Wird ein Fehler ge- 
funden, so erfolgt eine genaue Be- 
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Der „Turbo-Disk- 
Tester“ sucht nach Le- 
sefehlern (Readerrors) 
auf der Diskette. Feh- 


lerhafte Sektoren kön- 

nen nach dem Test als 

belegt gekennzeichnet 
werden. 


schreibung des Fehlers. Es ist auch 
möglich, nur einzelne Tracks auf ihre 
Funktionstüchtigkeit zu prüfen — die 
entsprechenden Angaben sind im 
Hauptmenü des Programms zu 
machen. Nach dem Test können die 
fehlerhaften Sektoren als belegt ge- 
kennzeichnet werden. Vorsicht! Bei 
dem Belegen der fehlerhaften Sekto- 
ren findet ein Schreibzugriff statt. 
Während des normalen Tests wird 
nur von der Diskette gelesen. Es fin- 
den keine Schreiboperationen statt. 


(A. Töpper) 


rem turbo-disk-tester 2.8 

dim f$(16),p(120):Ffor i=1 to 11:read 

a,a$:f$(a)=a$:next :ta=1:te=35:vs=-5 

dim t%(700),s%(700) , a%(700) 
fz-®:rem fehlerzahl 

For i=® to 117:read p(i):next 

rem fori=®t0117:pokae8*49S6+i,pCli):ne 

xt:stop 

print "Ccbm 4,c1r]”:gosub 3040 

p(1)=ta:p(66)*-te+1:pClB3)-vs 

poke 53281,15:print "[clr,wht,4down, 
10spaces]Jprogramm wird instaliert” 
print "CBdown]”:gosub 4008 

open 15,8,15,”i” 
input#15,a,b$,c,d:if a<>® then 1608 
open 1,8,2,”#” 

for i=® to 117 step 3:print#15, "m-w" 
chr$ (i)”"Cwht,stop)” chr$ (p(i)) 
chr$ (Cpli+1)) chr$ (pli+2)):next 
poke 53280,6:print 

poke 53281,6:print#15, ”"m-w” chr$ 
(5) chr$ (28) chr$ (3) chr8 (20) 
chr$ (8) chr$ (18) 

print "Colr,blk,2down, 4spaces]turbo- 

disk-tester by nifo-vision”:gosub 
1598 

print "Cdown, 2spacesJblock-test 
laeuft ....[down)” 

print "[2spacesI(track"”ta”-"te" 
Cleft))” 

print#15,”m-e” chr$ (8) chr$ (5) 
print#15,”"m-r” chr$ (8) chr$ (®) 

chr$ (1) 

get #15,3$:a-asc (a$+chr$ (0)) 

if a<>1 then 198 

close 1:goto 1088 

print#15,"m-r” chr$ (6) chr$ (0) 

chr$ (2) 

get #15,b$,0$:t=asc (b$):s-asc (c$+ 

chr$ (®8)):if t>35 then close 1:goto 
1908 

print F$(Ca)”"C2spaces]in”t”,”s 

tHlFzZI=t:sKlfz)r-s:aslfz)rma:fzfzri 
print#15,”m-e” chr$ (74) chr$ (5): 

goto 68 

if Fz=-8 then print "[3down, 2spaces) 
kein lesefshler gefunden !!”:close 
15:pokse 198,8:wait 198,1:run 

print "C3down,2spacesles wurden” 
fz”’lesefehler gefunden.” 

print "Cdown,2spaces)’fl’ - wenn 
eine liste ausgegeben” 

print ”[SspacesJwerden soll." 

print ”Cdown,2spaces]’f3’ - wenn die 
fehlerhaften bloecke” 

print "C9spaces])belegt werden 
sollen.” 

print "Cdown,2spaces]'f7' - wenn das 
programm verlassen” 

print ”"C9spaceslwerden soll.” 

poke 198,8:wait 198,1:get a$ 

if a$="[C£7]”" then close 15:end 

if a$-"[£f1]” then 1108 

if a$=-"[C£3J” then 1208 

goto 1018 

print "Cclr,wht,2down,2spaces]fehler 
liste :C[Cdown)” 

For i=® to fz-1 

gosub 1308 

if peek (198)<>8 then print "taste 
Cup)”:poke 198,8:wait 198,1:poke 
198,0:print "[Sspaces,up]” 

next 

print "[Sspacesltaste druecken”;: 
poke 198,0:wait 198,1:print :goto 
1908 

print "Cclr,wht,2down,2spaces)fehler 
auf disk belegen :[down]” 

for i=® to fz-1 

gosub 1308:t-t%li):s=s%Ci):gosub 
1498 

next :goto 1908 


EINE ER ER 


1398 


1301 


1400 
1401 
14902 


1403 
1500 
1501 


1519 
160908 


1601 


1602 
1603 


1604 
1605 
1614 
20008 
2901 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2003 
2010 
3008 
3810 
30208 
3039 


3049 


3058 
3069 
3070 


3071 
3088 


3030 
3100 
3118 
3200 
3210 
3220 


3221 
3230 


3231 
3240 


3241 
3259 


3300 
33198 


if a%Ci)=16 then print ” 24 read 
error[l2spaces]:[2spaces]track” 
t”sektor”s:return 

print a%Ci)+18"read error[2spaces): 
[2spacesItrack”t%(i)”"sektor"s%li): 
return 

print#15,"b-f";d;t;s 
print#15,”"b-a”;d;t;s 
input#15,a,b$,c,d:if a<>8 then print 
®” Crvs]Jfehlerhafte durchfuehrung !! 
Coff)J”:print a;b$;c;d 

return 

print "Cdown, wht ,2spaces]Jdas 
programm sucht nach lesefehlern” 

print "Cdown,2spacesJauf einer 
formatierten diskette,” 

return 

print "C2down, wht, 2spaces]beim 
versuch die 'bam’ zu laden” 

print "Cdown,2spaces)gab es probleme 
.„» 


print "Cdown]"”a;b$;c;d 

print "Cdown) das bedeutet 
moeglischerweise probleme” 

print "Cdown) mit dem directory- 

track , die diskette” 

print ”"Cdown] ist dann nicht 
verwendbar.” 

close 1:close 15:poke 198,8:wait 

198,1:run 

data 2, blockheader nicht gefunden 

data 3, sync nicht gefunden 

data “4, datenblock nicht gefunden 

data 5, datenpruesfsumme falsch 

data 7, Fehler bei verify 

data 8, diskette schreibgeschustzt 

data 9, headerpruefsumme falsch 

data 18, datenblock zu lang 

data 11, Falsche id im blockheader 

data 15, keine diskette im laufwerk 

data 16, fehler bei dekodierung 

poke 53280,15:poke 53281,1 

print ”Ccbm 4,home,cbm *,rvs, 

38spaces]N”; 

for i=1 to 23:print "C[off) [rvs, 

cbm B,3Bspaces,cbm 4] ";:next 

poke 2023,395:print "[Coff,yellNChome) 
”;return 

gosub 3088:print "C2down,rvs,cbm 8, 

YrightInifo-vision : turbo-disk- 

tester” 

print "Cdown,rvs,4right,rvsldas 
programm ist in der lage ‚” 

print "Cdown,“right,rvsleins 
diskette innerhalb von 69” 

print "Cdown,4right,rvsJsekunden auf 
'read-errors’ zu” 

print ”Cdown,“4right,rvsitesten .” 

print ”"C3down,6right,rvslbitte die 
zu untersuchende” 

print. "Cdown, 6right,rvsIdiskette 
einlegen und eine” 

print "Cdown,6right,rvsItaste 
dreucken.” 

poke 198,8:wait 198,1 

gosub 3088 

print "Chome,3down,rvs,cbm B, 

12right]parameter-menue:” 

print »"C2down, rvs,3right]Jstarttrack 

[2spaces): "ta”[left] ” 

print ‚‚"C2up,rvsilgresr up/down]” 

print "C2down, rvs,3rightlJendttrack 

[(3spaces]:"te"[left) ” 

print ‚‚”[2up,rvsilgrse left/right)” 

print "C2down,rvs,3right] 
leseversuche: "vs”[left] ” 

print ‚‚"C[2up,rvsILv)” 

print "C2doun, rvs,3rightlJmenus wird 
mit 'f1’ verlassen” 

poke 198,0:wait 198,1:get a$ 

if a$-"[Cdown]” then if ta‘te then 
ta=ta+1 
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3311 if a$=-"[up]” then if ta>i1 then ta- 2353 rvs,cbm o,chbm p,cbm o,cbm i,off 
; ta-1 cbm u,cbm y,cbm t,3spacesJL[8cbm p]” 
3312 if a$="[right]” then if te<35 then 2584 4018 return ı42 
te=-te+1 32008 data 169,1,32,101,5,32,75, 242,141, 7247 
3313 if a$="[left]” then if te>ta then 2492 SO: PrABB, 6, LTR IE 132,7,173, 
te=-te-1 f 
3314 if as-"[£f1)” then return 1261 32001 data 5,133,6,169,128,133,0,165,9,48, 7058 
3315 if a$="v” then vs=vs+1:if vs=-16 then 3439 ESS ER) DBEREN IS ER TUST, TED, 
vs=-1 i 
333® goto 3210 573 32002 data ©1,144,228,174,17,5,232,142,17, 7088 
3999 end 128 5,224,7,208,215,174,255,5,232,142, 
4900 print "[4spaces,cbm aJlCCCCecc 154 855 
Ccbm s]” = 32003 data 5,138, 224,36,208,189,96,149, 7045 
4901 print "[4spaces]T---[3spaces]--Y 2684 254,5,96,172,254,5,76,37,5,162,1, 
[C17spaces,8cbm £]” 224,5 
4002 print "[4spacesJTLrvs] LC==CC [off] 5246 32004 data 249,240,169,128,133,0,165,0,48, 7239 
YCFRCchm p,cbm o,cbm i,rvs,chm u, e52,201,1,249,195,232,208,237,141, 
cbm y,cbm u,off,cbm i,cbm o,cbm p, 855 
cbm @,cbm pIJRFOLchm y,7cbm uJ” 32005 data 5,201,25,208,6,206,490,5,206,54, 14932 
4003 print "[4spaces,cbm z,rvs,8cbm o, 5667 5,173,255,5,96 


off,cbm x,3spaces,cbm t,cbm y,cbm u, 


Damit lassen sich defekte Sektoren auf der Diskette aufspüren. 


Einige Systemroutinen 


Mit einigen SYS- oder POKE-Befehlen 
lassen sich viele Basic-Programme op- 
timieren. Da jedoch einige wichtige 
Adressen nicht im Handbuch stehen, 
bleibt vor allem Anfängern die voll- 
ständige Ausnutzung des C64 ver- 
schlossen. 

Mit einem SYS-Befehl gibt man dem 
Computer die Anweisung an eine 
Adresse zu springen, an der ein Ma- 
schinenprogramm beginnt — zum Bei- 
spiel eine Routine des Betriebssy- 
stems. So bewirkt SYS 46374 eine Gar- 
bage-Collection. POKE-Befehle schrei- 
ben an eine bestimmte Adresse einen 
bestimmten Wert. Der PEEK-Befehl 
liest einen Wert einer bestimmten 
Adresse aus. 


Grafik-Befehle 
BE er 
Um den „Extended-Color-Modus" ein- 
zuschalten, wird POKES53265, 
PEEK(63265)OR64 eingegeben. Das 
Ausschalten erflggt mit POKE- 


18 as$="Name” 
208 sys 57821 as$,8,1 
30 poke 780,0:sys 65493 
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im C64 


Die Systemroutinen 
des C'64 lassen sich 
auch vom Basic aus be- 


nutzen. Die Program- 
me werden dadurch 
schneller und 
effizienter. 


53265, PEEK(53265)AND191. Der „Mul- 
ticolor--Modus“ wird mit POKE- 
53270,PEEK(53270)OR16 aktiviert und 
mit POKE(53270),PEEK(53270)AND239 
wieder abgeschaltet. 

Zum Laden von Programmen inner- 
halb eines Basic-Programms kann 
man ebenfalls mit POKE- beziehungs- 
weise SYS-Befehlen arbeiten. Die An- 
weisungen hierzu sind Listing 1 zu ent- 
nehmen. 

In Listing 2 ist demonstriert, wie man 
das Bildschirm-RAM (Adresse 


18 as$="Name” 


1024—2023) auf Diskette abspeichert. 
Um andere Speicherbereiche abzu- 
speichern, muß das Low- und Highby- 
te der Start- und Endadresse berech- 
net werden. Die Werte, die in die an- 
gegebenen Adressen gepoked wer- 
den, sind entsprechend zu ändern. 
Bei Tastaturabfragen können eben- 
falls Systemroutinen verwendet wer- 
den. Mit dem Befehl SYS58826 wird 
ein Programm solange gestopt, bis die 
RETURN-Taste gedrückt wird. Mit der 
Befehlsfolge POKE198,0:WAIT198,1 
wird auf einen Tastendurck gewartet. 
Zum Abschluß noch einige wichtige 
Systembefehle: 

— SYS65499 setzt die Variable TI$ auf 
„000000". 

— SYS42112 bewirkt ein END ohne 
„READY“. 

— SYS65126 löst einen Basic-Warm- 
start aus — SYS62255 schließt alle 
Files. 

Und zu allerletzt der berühmte INPUT- 
Befehl ohne Fragezeichen: CLOSE- 
1:OPEN1,0:INPUT 1,A$:CLOSEI 

(F. Peters) 


28 pokel193,98:pokelS4,4:rem startadresse Clow/high) 
38 poke173,231:pokel74,7:rem endadresse (low/high) 


42 sys57812 as$,8 


So wird das Bildschirm-RAM abgespeichert. 


Spiele Listing 


Es wird scharf 


„Airfox" ist ein Actionspiel für eine 
Person. Aufgabe des Spielers ist es, 
mit einem Hubschrauber möglichst 
weit in feindliches Gebiet vorzudrin- 
gen, um eingeschlossene Kameraden 
zu befreien. Doch leicht wird das 
nicht: 

Zum einen sehen die Gegner ungern 
Besucher in ihrem Gebiet und versu- 
chen den Retter aufzuhalten, zum an- 
deren ist der Treibstoffvorrat des 
Hubschraubers knapp bemessen. 
Nach dem Starten des Programms 
und der Eingabe des gewünschten 
Levels erscheint ein Hubschrauber- 
cockpit auf dem Bildschirm. In der 
obersten Zeile sind die Anzeigen für 


geschossen 


Die Kameraden sind 
vom Feind einge- 
schlossen und müssen 
befreit werden. Doch 
die Gegner sind wach- 
sam; .., 


die Raketen (M) und den Treibstoff- 
vorrat (F), sowie das Statusdisplay für 
System, Rotor, Munitions- und Rake- 
tenvorrat. 

Unter dem Cockpitfenster befinden 
sich die Instrumente für den Motor 
und die gegenwärtige Position. 
Gespielt wird mit dem Joystick (Port 2) 
und der Tastatur. Zunächst wird das 
System mit „S“ eingeschaltet. Mit „E“ 


startet der Motor. Die Umdrehungs- 
zahl kann durch Halten des Feuer- 
knopfes und des Joystickknüppels 
nach links erhöht werden. Es emp- 
fiehlt sich, bei etwa 800 rpm den Rotor 
einzukuppeln (mit RETURN). Zum Ab- 
heben zieht man den Joystickknüppel 
zurück und drückt gleichzeitig auf den 
Feuerknopf. Nach kurzer Zeit er- 
scheint ein Fadenkreuz in dem Cock- 
pitfenster. Angreifende Feinde wer- 
den entweder abgeschossen (Feuer- 
knopf) oder durch Raketen, die mit 
„6“ — „9" abgefeuert werden, ver- 
nichtet. 

Das Programm ist zweigeteilt. Teil 1 
(Listing 1) muß zuerst abgetippt und 
abgesaved werden, Teil 2 (Listing 2) 
wird unter dem Namen „Ä2“ gespei- 


chert. 
(D. Kuhlmann) FERIEN 
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390 
490 


420 
438 


rf=-d:te=-9:ml1)-9:ml2)=-0:m(l3)-B: mc4)- 
8:s5p=® 

po=®:fi=fi+1:if f1>1 then 598 
b1$="CCC[34spacesICCC” 
b2$="CC[36spaces]ICC” 
b3$-"C[38spaces]C” 
p1$S="[Cbilk,rvsJ##”:p25=p15+”"#”":p3$- 
p2S+”#" :p45=p35+”#” 


ö poke 65298,192:poks 65299,248 


450 
460 


470 
4808 


4390 
598 


rem nams 

input "[clr,down,blkIname (up to 18 
letters) *";n$:n$=left3 (n$+” 

[18spaces]”,10) 

input ”Chome, 3downJlevel (1-4) ”;le: 
if le<1 or le>4 then 478 

mm=(5-le)*29:w=1500+le*198 

rem bild 

poke 65286,8:print chr$ (8) chrS 
(142) 


DB color 8,2,6:color 4,1:vol 8:pudef 


dD print ”"[clr,bik,rvs,Bspaces, off] 


[rvs) [Loff,whtJmBBBB[blk,rvs] (off, 
whtIffredIBBlgrnJBBBBLlblk,rvs] L[off, 
whtlcloff3BBBBBCblk,rvs) Coff] [rvs, 
Bspaces,off]” 
print "[rvs,4spaces,off ‚5Sspaces, 
cbm *,rvs,15spacss]seramloff, 
shift £,5spaces,rvs ,4spaces, off]” 
print b1$:print bi1$:print bi1$ 
for i=1 to 5:print b2$:next 
for i=1 to 7:print b3$:next 
print "[rvs,cbm a,10shift *,cbm r, 
16shift *,cbm r,108shift *,cbm s,off] 
print "[rvs,shift -] sc 290000 

[shift -,2spaces]position 998 
C2spaces,shift -] mi[l2spacss]0000 

[shift -,off)” 
print "C[rvs,cbm q,108shift *,cbm x, 
16spaces,cbm z2,108shift *,cbm w,off]” 
print "[rvs,shift -,14spaces]speed 
C2spaces]0080C[14spaces, shift -,off]” 
print "[rvs,shift -] amm.[2spaces) 
0828C4spacesIrpm/r[l2spaces]008 
C4spacesJalt 28000 [shift -,off]"” 
print "Crvs,shift -] mis.[3spacss]98 
[C4spaces]Irpm/e 0000[.4spacesItmp 
C3spaces]008 [shift -,off]” 
print ”"[rvs,shift -,38spaces, 
shift -,off]” 
print "C[rvs,cbm z,38shift *,cbm x, 
off,home]” 
gosub 2359:poke 65286,27 
rem system akt. 
get key a$:if a$<>"s” then 678 
color 1,6,5:char 1,25,8, "Bl2right] 
BB” 
sound 1,900,1® 


d char 1,22,0,"B”:color 1,3,5:char 1, 


11,0, "BBBB” 

char 1,26,2, "BB” 

char 1,8,21,”":print using p2$;am 
char 1,9,22,"”":print using pl$;ms 
char 1,34,18,”":print using p3$;mi 
char 1,5,18,”":print using p4$;sc 
get key a$:if a$<>”"e” then 760 

For i=-1 to5 

sound 3,508,5:for a=1 to 208:naext 
next :color 1,6,5:char 1,26,0,"”B” 
For i=® to 58 step .5 

sound 1,i,2:sound 3,i+2,2 

char 1,21,22,””:print using p3$;rm: 
ra=-rm+8 

next :goto 1008 

rem * hauptprogramm * 

rem sound 


sound 1,rm/28,25:sound 3,rm/20+2,16 
rem joystick 

a=-joy (2):if a=® goto 19098 

if a8 or fl-® goto 940 


® if a=1 goto 1518 


if a=-5 goto 1568 

if a=-7 goto 1598 

if a=-3 goto 1628 

if a=129 goto 1728 

if a=133 goto 1798 

if a=135 goto 1658 

if a=131 goto 1688 

if a=128 goto 2908 

rem tastatur 

get a$:if a$="” goto 1038 

if a$=-chr$ (13) goto 1478 

a=val (a$)-S:if a>® and a<5 then 
1858 

if r£f=1 and int (rr)<>int Crm/10) 
goto 1499 

if 1=2 then 1078 


D po=po+(1l-2):ifF po<® then po=-359:else 


if po?>359 then po=® 

char 1,23,18,”":print using p2$;po 
rem fuel 

Fu=-Fu-al/4008-rm/2008:if Fu<1990 
then e=i:goto 2158 

if fu<308®8 then sound 1,700,5:char 
1,16,8, "CLwht, FlashonJfL[flashoff)”: 
color 1,3,5:slse color 1,6,5 

char 1,16+fu/1808,0,”B” 

rem miles 

if po<38 then a-(3908-po)/2*sp:goto 
1168 

if po<188 then a=-(pao-908)/2*sp:goto 
1168 

if po<278 then a=-(278-po)/2*sp:goto 
1168 

a=(po-270)/2*sp 

mi=mi+a/10000:ifF mi<® then nina 
goto 21502 
char 1,34,18,"":print using p3$;mi 
if mi>w/2 and F1-1 then char 1,1,18, 
”Cred,rvs,flashon]fuel depot 
Cflashoff ,off]”:s1-9 

if mi>w then char 1,1,18,"[red,rvs, 
Fflashonlland now ICflashoff, offJ":s1 
-93 

rem temp 

if te=int (rm/18+a1/5908) then 1270 
te=te+(C int (rm/18+al/508)-te)/188 
if te>42® then print chr$ (130); 
char 1,35,22,”":print using p2$;te 
if te>498 then e=3:goto 2150 

rem speed 

if sp>rr/3 then sp=sp-(sp-rr/3)/720: 
char 1,22,20,”":print using p2$;sp 
rem Feind 

if en?>® goto 1360:selse if Fl-® goto 
868 

a=-int CCmm+tal/1000)*rnd (BY): if a> 
18 then 869 

if a>B and al<le*4908 then en=3:c= 
204:goto 1339 

if a5 then en=2:c-200:else en=1:c- 
203 

ex"-int (35*rnd (B))+2:ey-int (12*rnd 


 8))+2 


mo=d:zr=-21:el=-ex:e2-ey:goto 1438 

rem f. bew. 

mo=mo+tle:if mo>68 then e=2:goto 2158 
char 1,el,e2,” ”:if 1<>2 then ex"ex- 
c1=2) 

if ex>1 and ex<38 and ey>2 then 1408 
if en=3 then sx=-el:ey=-e?:else en=d: 
goto 8608 


if mo<zr then 1430:else zr=-zr+29 
if en<3 then c=c-1:goto 1438 

if mo?’4B then c=203:else if mo>298 
then c=194:elss c=2094 

a=-pesk (3072+ex+tey*HB): if .a=-160 or a 
=195 then en=®:goto 868 

if a=32 then char 1,ex,ey,chr$ (c): 
el-ex:e2=-ey 

goto 869 

rem rotor ein 

color 1,6,5:char 1,27,8,"B”’:rfe-1: 
goto 868 

rem rotor +/- 
rr-rr+(rm/10-rr)/15:char 1,22,21,””: 
print using p2$;rr:goto 1048 

rem up 

if spfrr/3 then sp=sp+(rr/3-sp)/20 
if ch‘>15 then ch=15:gosub 2398 
char 1,22,20,””:print using p2$;sp 
goto 1838 

rem down 

if sp>1® then sp=sp-sp/19:else sp=B: 
ch=16:char 1,1,15,1$:gosub 2398 
goto 1538 

rem links 

if 128 then l=1-1:gosub 2390 

goto 1030 

rem rechts 

if 1<4 then l=1+1:gosub 2399 

goto 1938 

rem feuer-links 

if rm<9908 then rm=rm+108 

goto 1699 

rem feuer-rechts 

if rm>888 then rm=-rm-108 

if rm<3888 or rm>8808 then print ” 
C£flashon)”; 

char 1,21,22,””":print using p3$; rm: 
goto 1838 

rem feuer-up 

al=-al-100:if al>® then 1758 
al-d:if mi>w goto 2198 

if mi>w/2 and Fi-1 goto 2070:else 
18298 

sy"-ey-1:if al>1008 goto 1820 

if sp?® then e=®:goto 21508 

gosub 2358:goto 1829 

rem Feuesr-down 

if rr<208 goto 1038 

al-al+int ((20808-al)/50000*rr):ey- 
ey+ti:if ey>14 then ey-14 

if £fl=-® then gosub 2359 

if al>® and al<2008 then print chr$ 
(130); 

char 1,33,21,"":print using p4$;al: 
goto 1038 

rem rak. laden 

if m(a)=1 goto 1918:else if ms<i1 
goto 1839 

ms-ms-1:m(a)=-1:color 1,6,5:char 1,18 
+a,0,"B” 

char 1,9,22,"”":print using pi$;ms 
if ms=® then color 1,3,5:char 1,28, 
0,”B” 


38 sound 1,908,5:goto 1838 


rem rak. absch. 

if £fl=-® then 1038:else m(a)-®:color 

1,3,5:char 1,18+a,98,"B” 

for i=® to 380 step 28:sound 3,809- 

i,6 

gosub 2399:if i<18® then char 1,19, 

16, ”[redJD”:goto 1958 

if i<2808 then char 1,19,15,"C[Cred]E”: 
else char 1,19,15,” ”":char 1,19,14,” 
Cred].” 

next :gosub 2398 


if psek (3611)-32 goto 1838 

sound 3,208,108:color ®,9,4:char 1, 
19,13, "Cyel]lM”:sound 3,290,1 

color 8,2,6:goto 2948 

rem feuer 

if am<i or fl=® then 1038:else sound 
1,rm/28,30:sound 3,958,28:For i=1 to 
190 


am=-am-1:char 1,8,21,”":print using 

p2S;am 

next :if en<‘3 and mo>4® and mo*rnd 
(8)<25 then 1968:elsa 1830 

rem treffer 

sc=-sc+ten*100:poke 3611,32:en=® 

char 1,5,18,””:print using p4$;sc: 

goto 1038 

rem auftanken 

char 1,4,15, "Cblk,rvs,flashon] 

hubschrauber wird aufgetankt ...” 

For i-1 to 20808:next :s1=9:goto 378 
rem am ziel 

char 1,4,93,"[red,Flashon] 

congratulations | you made it | 

[flashoff)"” 

char 1,14,11,”[CblkJbonus: ”:print 

using p48$;sc/5*le+ti/18:sc=sc+tsc/5* 
le+ti/1® 

char 1,14,12,"time : [Crvs)”: print 

right$ (ti$,5) 

poke 2393,8:goto 2290 

rem -- game over —— 

for i=® to 7:color ®,8,i:sound 3,580 
+i13,2:next 

for i=-® to 7:color 8,8,7-i:sound 3, 

508+(7-i)13,18:next 

al-9399:gosub 2358:color ®,2,6 

char 1,11,9,”"CblkJ--- game over ---"” 

char 1,1,11,”reason: ”+ab$(e) 

sc=-int (sc+mi*18):char 1,14,13, 
"score: ":print using p4S;sc 

poke 239,8:get key a$:if asc>” ” 

goto 2219 

rem hiscore-liste 

scncelr :char 1,8,3,”CblklJthe best 18 
pilots are:”:color 1,2,4 

for i-1 to 18:if sc<val ( rights 
(n$Ci),5)) then 2288 

For a=9 to i step -1:n$(a+l)-=n$(a): 
next 

a$=-right$ ( str$ (sc),len ( str$ 
(sc))-1) 

n$Ci)=n$+” ”"+rights C”00000”+a$,5):i 
“11 

next 

for i=1 to 18:char 1,180,5+i,”” 
print using "##. ";i;:print n$(i): 
next 

color 1,2,3:char 1,10,19, "space to 
try again.” 

get a$:if a$<>"” ” goto 23208:else 368 
rem * unterprogrammne * 

rem landschaft 

fl-®:a=-si1:for i=1 to 9:char 1,1,7+i, 
15 

if al<i*100 then char 1,1,7+i, 
ls$(a):a=a+1 

next :if a=si then fl=1:s1"18:goto 

2398:else return 

rem horizont 

char 1,1,ch, "CgrnJ"+1$C1) 

if ch=15 then char 1,1,16, "[rvsI”+1$ 

*PEDEf 1” 

char 1,19,12, "Cblk,rvs,shift -J”: 

char 1,18,13,”Cshift *,right, 

shift *]” 

char 1,19,14,”[shift -,off]J”:return 
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n er x 340 data [3spaces]®d,[2spaces]®, 56, 16, 1892 
| ee a RT Dre Regine (2spaces]®, [2spaces)®, [2spaces]®, 
10 ram #runonnnunsnnnnunnennen C2spaces]® 
28 rem * “ 350 rem Feindr, 
! - 30 rem * airfox c-16 part 1 *® 369 data [3spaces]®d,[C2speces]Q, 24, 24, 1665 
40 rem * ” [2spaces)®, (2spaces)2, [2spaces]®, 
\ 58 rem *#unnnnnnnsnnnnnnnnnnnn [2spaces]® 
| 68 rem * (c)1987 d. kuhlmann * 378 rem expl. 
7 rem nina 380 data [2spaces]49,178, 72, 62, “0, 2291 
88 poke 55,255:poke 56,55:c1r ı912 86, 65, [2spaces]® 
- 98 print chrs C27)+”"m” 1085 398 rem ---- titelbild ---- 
100 rem *#*** zeichensatz *=#.» 408 color 8,10,2:color 4,1 1465 
118 for i-B28 to B4S:read as 1383 4108 print "[clr,wht,down)” tabC14)”now 2612 
128 poke i,dec (a$):next 1985 loading” 
139 sys nn 832,210:poke 835,58 2674 420 color 1,8,1 338 
148 poke 838,211 :poke 841,59:5ys B28 2646 438 print "C2down,3spacesJAAl3spacesJAA 3624 
150 poke 65298, 192: poke 65233, 248 2708 AAAAAL2Zspacss]AAAAAAL2spacesI)AAAA 
- 168 : C2spaces]AAl2spaces]JAA a 
170 data a2,00,bd,20,d0,94,20,38,bd,08, H565 440 color 1,8,2 s62 
 d1,9d,00,39,e8, do, ei, 459 print "[2spacss]AAAAL2spacesIAA AA 2449 
1880 rem ---- neus zeichen -- [2spacess]AA AAlSspaces)AA[2spacssJAA 
198 For i=14856 to 14959:read a:poke i, 2718 [2spacesJAAAA 
0 B:next 460 color 1,8,3 334 
200 : 478 print ” AAl2spacesJAA AA AAl2spaces] 2815 
. 21® data 255,129,129,129,129,129,129,255 4320 AA AAAAALZSpacssJAAl2SspacesJAA 
BED data [3spaces]®, 28, - 62, 62, 28, 2968 [3spacesJAA 
 _ [2spaces]®, [2spaces]@ 488 color 1,8,4 1926 
- 238 data 255,255,255,255,255,255,255,255 4167 498 print ” AAAAAA AA AAAAAL2ZSspaces]AA 3113 
240 rem rakete - [5spaces]AA[2spaces]AA[2spacesJAAAA = 
850 data [3spaces]®,[2spacesJ8, 28, 28, 2411 522 color 1,8,5 1058 
5 Ge,:52:- 62,8% - 519 print ” AAl2spaces]AA AA PAEERpaRme] 2474 
260 data [3spacesJ®, L2spaces]@, C2spaces]) 1932 AA AAl6spaces]AAAA[lEspacesIAA 
E 8, 28, 28, 20, [2spaces]2, [2spaces]9 [2spacesJArA 
278 rem Flugzeug 528 color 1,8,7 1122: 
280 data [3spaces]®,[2spaces]®, 24,255, 1929 S3® print "[2down,4spaceslwritten 1987 3590 
E 89, [C2spaces]2, [2spaces]®, [2spacesJO by dister kuhlmann,.” 
280 data [3spaces]®,[2spaces)®, 16,124, 2078 540 print ”C3down,red)” tabt13)"I 2631 
 — - 16,[2spaces]d, KEspuo=s IN [2spaces]® C2spaces, wht]188 points” 
308 data [3spaces]2®, 10, 1 56, 1768 558 print "C[down,red]” tab(13)”F 2227 
Bra re, erg [2spaces]®, [2spaces, wht]288 points” 
.. [2spaces)® 568 print ”"[Cdown,red]” tab(13)”Q 2335 
5 310 rem hubschr. C2spaces, wht]1308 points” f 
; 320 data [(3spaces]2, 127,[C2spaces]8, 28, 2251 578 color 1,108,8 = 7998 
0734, 62, 93,(2spaces]d 588 char 1,8,14,”"load”:print chr$ 3472 
! 338 data [3spaces]1®, 62,[2spaces]JB, 20, 2190 (34)”a2” chr$ (34)”,B” - 
| Br 28, 34, C2spaces]2, [2spaces]® 598 char 1,0,19, "run: C7upJ” 2233 
| i 608 poke 1319,13:poke 1328,13:poke 239,2 


‚und in Listing 2 befindet sich der Zeichensatz. 


| Tuning für Sprite- 
| Editor 


| System: C128 


Art: Utility : > 17; 2 
aichäi Kusezablss „Sprite Edi Plus“ er 


weitert den eingebau- 


„1-8“: Das aktuelle Sprite wird mit 
dem Sprite der angewählten Nummer 
ausgetauscht. 

„+“ Es erfolgt eine Spiegelung an der 
y-Achse. 


en EEE 


Nicht immer reichen die Standardbe- 
fehle des integrierten Spriteeditors 
im C 128 aus. Mit der Erweiterung 
„Sprite Edi Plus“ lassen sich mehrere 
Sprites zu einem Objekt zusammenfas- 
sen, invertieren, untereinander ver- 
tauschen und spiegeln. 

„Sprite Edi Plus“ wird mit BLOAD- 
“name“ geladen und mit SYS 4864 in- 
itialisiert. Die neuen Funktionen wer- 
den über die „HELP“-Taste aktiviert. 
Ein nochmaliges Drücken dieser Ta- 
ste schaltet die Erweiterung wieder 
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ten Sprite-Editor des 
C128 um einige wichti- 
ge Funktionen. 


aus. Befindet man sich im Erweite- 
rungsmodus, stehen folgende zusätzli- 
che Befehle zur Verfügung: 
„I“ invertiert das aktuelle Sprite. 
„+“ erhöht die Multicolorzusatzfarbe 1 
(Taste bei der Zehnertastatur). 

—“ die Multicolorzusatzfarbe 2 wird 
erhöht (Taste bei der Zehnertastatur). 


„1“ Spiegelung an der x-Achse. 

„Ss“: Das aktuelle Sprite wird zwi- 
schengespeichert und kann mit ... 
„2“... wieder zurückgeholt werden. 
„CRSR“: Mittels der vier Cursorfunk- 
tionen wird das aktuelle Sprite über 
den Bildschirm bewegt. Dadurch ist 
es möglich, mehrere Sprites zu einem 
Objekt zusammenzufassen. 

„El-F7“ Das Sprite wird in sich ver- 
schoben. 

„P“ alle Sprites werden auf ihre ur- 
sprünglichen Positionen zurückge- 
stellt. 


„R“ Ein „Sprite-Reset" wird ausge- 
führt: Alle Sprites werden neu positio- 
niert, die Farben werden auf die Stan- 
dardfarben zurückgestellt (Schwarz, 
Weiß, Türkis). Der Multicolormodus 
sowie eine x/y-Ausdehnung werden 
abgeschaltet. 

„ESC“: Es wird von dem erweiterten 
in den normalen Spriteditor geschal- 


tet. Ein erneuter Aufruf von „Sprite 
Edi Plus“ ist von dort aus nicht mehr 
möglich. Die Erweiterung ist als kom- 
binierter Hexdump-Basiclader abge- 
druckt. Wird sie als Hexdump einge- 
geben, so muß der Checker benutzt 
werden. Als Startadresse ist 1300 an- 
zugeben. Wird „Sprite Edi Plus" als 
Basiclader eingegeben, so muß der 


Lader vor dem Start abgespeichert 
werden. Nach RUN werden dann die 
Daten in den Speicher gepoket. Das 
fertige Maschinenprogramm wird mit 
POKE43,0: POKE44,19 
POKE45,61:POKE46,27 
SAVE,„name“,8 

abgespeichert. 


WE EN 


1308 10 data 4c,a7?,1a,39,03,8d,20,0a, ab 1528 7008 data d®d,f7,ca,dd,f2,ea,ea,ea, db 
1398 28 data 4c,44,15,ea,ea,ff,29,3e, ea 1530 71® data a2,15,a0,ff,ad,d1,17,8d, 94 
1310 30 data 09,5b,99,78,09,95,25,3e, 9c 1538 720 data d1,17,88,d0,F7,ca,dd,f2, 7c 
1318 4® data 25,5b,25,78,25,95,80,00, 08 1548 730 data ea,ea,ea,ea,a5,d®,c9,920, 3e 
1320 SO data 00,00,00,00,a9,FF,8d,15, 22 1548 740 data d®,13,ea,ea,a9,8d,8d,4a, 1b 
1328 69 data d9d,ad,2d,13,8d,e6,11,a2, 34 1550 750 data 03,ad,fc,12,69,30,8d,4b, ba 
1338 78 data 18,ca,bd,9e,13,9d,d6,11, 38 1558 760 data 03,a9,02,85,d0,a9,ff,8d, 71 
1338 89 data d®,F7,a5,d4,c9,40,F0,03, ıF 1569 770 data 15,d0,ad,0d,13,8d,e6,11, 48 
1349 98 data 4c,55,fa,78,40,80,18,ea, 63 1568 78B® data 40,65, fa,ea,ea,ea,ea,8sa, f7? 
1348 190 data ea,sea,a9,00,84,20,0a,39, 76 1578 798 data ea,ea,ea,ea,ea,ea,sa,a®, “a 
1350 11® data 60,84,14,03,a9,13,8d,15, Fi 1578 800 data 08,b1,fa,99,50,2b,cB,c®, fd 
1358 1208 data 03,a9,58,85,d4,40,65,Fa, 20 1580 818 data 3F,d8,f6,40,1d,15,07,06, 2 
1360 130 data a9,ff,8d4,15,d0,ad,0d,13, 3F 1588 828 data 0a,07,06,04,05,08,909,05, 06 
1368 142 data 8d,e6,11,a2,10,ca,bd,Qde, ®c 15390 830 data a0,00,b1,fa,49,FFf,931,fa, 38 
1379 1S® data 13,94,d6,11,d0,F7,ea,ea, 14 15938 842 data 28,00,49,d0,F5,4c,1d,15, 29 
1378 160 data ea,ea,sa,sa,sa,ea,sa,ea, 88 1522 850 data ea,ea,sa,ea,sa,sa,sa,sa, 88 
1389 178 data a2,03,88,20,03,25,d4,a2, 9c 1538 860 data a8,00,bi1,fa,aa,bil,fc,91, ba 
1388 180 data 00,88,20,03,c9,40,F0,0F, fi 15b® 870 data Fa,Ba,31,fc,c8,00,40,d0, 74 
13938 19® data c9,58,F0,05,78,4c,d5,13, 48 15b8 B8B® data F1,4c,6a,19,ea,ea,sa,sa, fS5S 
1398 200 data SB,4c,65,fa,ea,ea,ea,78, e3 15cC® 830 data sa,sa,ea,78,ad,fc,12,18, 1d 
1388 210 data a9,24,8d,14,03,39,13,8d, de 15c8 5988 data Ed,fc,12,aa,de,df,13,4c, 78 
13aB 228 data 15,03,ce,29,d0,a9,09,85, 62 15d® S1® data 65,fa,ea,ea,ea,ea,78,ad, 37 
13bd2 230 data d®,a9,0a,8d,20,02,39,58, ®b 15d8 920 data fc,12,18,6d,fc,12,aa,fe, 29 
13b8 24® data 85,d4,a2,50,a0,FfFf,ad,7Ff, de 15e®2 338 data 2f,13,4c,65,Fa,ea,sa,ea, £3 
13c0 2S® data 18,8d,7F,18,88,d0,F7,ca, d7 1588 S40 data ea,78,ad,fc,12,18,6d,fc, Be 
13cB 260 data d2,F2,4c,65,fa,ea,ea,ea, d5 15f0 SS data 12,aa,de,28,13,F0,03,4c, 13 
13d0 270 data ea,ea,sa,sa,sea,ae,fco,l2, 25 15f8 360 data 65,fa,ae,fc,12,bd,38,16, Be 
13d8 280 data a9,00,86,Fc,a0,00,84,fs, Sc 1608 972 data 4d,2d,13,8d,2d,13,40,65, a7 
1328 290 data a0d,de,84,fb,e0,03,f9,0b, dc 1608 980 data Fa,sa,sa,sa,ea,78,ad,fc, 32 
1388 380 data 90,09,e6,Fb,a9,Fb,65,fc, 89 1618 390 data 12,18,6d,Fc,12,aa,fe,Be, cH 
13F® 31® data aa,86,Ffc,a0,00,a9,00,cH, 14 1618 1088 data 13,F8,03,40,65,Fa,ae,fc, £9 
13Ff8 328 data Fc,f®,07,c8,69,40,c4,Fc, 3c 1620 1012 data 12,bd,30,16,4d,0d,13,8d, 36. 
1408 330 data d®,F9,85,Fa,ea,ea,a5,d4, 33 1628 10228 data 2d,13,4c,65,fa,ea,sa,ea, fi 
1488 340 data c9,21,d0,03,4c,39,15,c9, 7c 1630 1930 data 01,02,04,08,10,20,40,80, ab 
1410 350 data 47,d0,0b,a9,00,85,Ffc,a9, a8 1638 12402 data ea,ea,6a,78,a0,3F,88,b1, a9 
1418 368 data 0e,85,fd,4c,27,19,c9,44, cc 1640 1050 data Fa,393,00,06,c0,00,d®,F6, ef 
1420 370 data dO,0b,39,40,85,fc,a9,®de, 51 1648 1060 data a9,3c,8d,39,16,39,00,8d, al 
1428 380 data 85,fd,4c,2f,19,c9,4Ff,d®, 75 1650 1078 data 32,16,80,39,16,b9,00,0b, ea 
14308 398 data 0b,a9,80,85,fc,89,0e,85, 3a 1658 1080 data ac,3a,16,91,Fa,ac,39,16, 68 
1438 402 data fd,4c,37,19,09,45,d9,0b, 16 1660 10S® data b9,01,0b,ac,33,156,c8,91, 71 
1449 410 data a9,c0,85,fc,a9,08,85,fd, 35 1668 1188 data Fa,ac,39,16,b9,02,0b,ac, 86 - 
1448 420 data 4c,3Ff,19,c9,42,d0,0b,a9, 33 1670 1112 data 3a,16,c8,c8,91,Ffa,ee,3a, 6F 
1450 430 data 00,85,fc,a9,0F,85,Fd,4c, 89 1678 1120 data 16,=e,3a,16,ea,3a,16,ce, 48 
1458 440 data 47,19,c9,4d,d®,0b,39,40, d6 1688 1138 data 39,16,ce,39,16,ce,39,16, 23 
14690 4S® data 85,fc,a9,0F,85,fd,4c,4f, a9 1688 1140 data ad,39,16,c9,fd,d®,c3,4c, 65 
1468 H6D data 19,c9,46,d0,0b,39,80,85, 25 1692 1158 data 1d,15,00,00,00,08,78,a0, e® 
1478 1470 data fc,a9,0f,85,fd,4c,57,19, cc 1698 1168 data 40,88,b1,fa,39,00,0b,c0, 53 
1478 480 data c9,41,d0,0b,a9,c0,85,fc, bs 1630 1170 data 00,d0,f6,a9,3e,8d,92,16, ab 
1480 4S2 data 89,0f,85,fd,46;5Ff,19,c9, sf 1638 1189 data 393,07,84,93,16,89,00,8d, 7c 
1488 500 data 53,d0,03,40,c3,15,c9,54, 5d 16b® 1180 data S4,16,39,00,20,40,88,91, 7c 
14398  S51® data d®,03,40,d6,15,c9,55,d®, 15 16b8 12008 data Fa,dd,Fb,ea,ac,93,16,b9, bi 
1498 528 data 03,4c,89,15,c9,56,d0,03, ca 16c0 1212 data 30,16,8d,95,16,ac,92,16, FB 
1430 S53® data 40,2d,16,c9,36,d0,03,4c, ab 16c8 1228 data 39,00,0b,cd,95,16,d0,0d, b9 
14a8 549 data 36,16,c9,39,d0,03,4c,36, 37 16d0 1238 data ac,94,16,b9,30,16,ac,92, a9 
14b8 550 data 16,09,04,d0,03,40,25,17, 48 16d8 1240 data 16,11,fa,S1,fa,ee,34,16, £7 
14b8 560 data c9,805,d0,03,4c,5b,17,c9, cf 1628 1258 data ce,93,16,3d,93,16,c9, FF, eb 
14c0 578 data 06,d0,03,40,99,17,09,03, 35 1688 1260 data d®,d2,39,07,84,93,16,a9, 97 
1468 588 data d®,03,4c,03,18,c9,49,d®, de 16fd 1278 data 290,8d,94,16,ce,92,16,ad, 96 
14d0 598 data 03,4c,6c,18,c9,4a,d0,03, 56 16F8 1288 data 92,16,09,ff,dd,be,a8,3c, bc 
14dB° 6002 data 40,75,18,c9,8c,d0,03,4c, 1b 1700 1292 data bil,fa,aa,c8,cB,b1,fa,8d, 1d 
14ed 610 data 11,15,c9,2d,d0,03,4c,77, 59 17088 1308 data 92,16,88,91,fa,88,88,ad, ci 
14e8 628 data 15,c9,11,d0,03,4c,ed,ila, 18 1718 1318 data S2,16,91,fa,88,88,88,c2, db 
14f0 630 data c9,29,d0,03,4c,®c,1b,c9, Fe 1718 1328 data fd,d®,e5,4c,ee,1B,ea,ea, 9a 
14£F8 640 data 48,F0,03,4c,65,Fa,ce,20, 29 1720 1330 data 08,ff,00,ea,e2,30,00,bi, b£2 
1590 650 data d2,a9,65,8d4,14,03,a9,fa, bf 1728 1348 data fa,99,28,17,c8,c0,03,d®, a5 
1508 5662 data 8d,15,03,40,03,13,ea,ea, le 1738 1350 data F&6,ea,a0,03,b1,fa,88,88, 60 
1512 670 data ea,a0,00,b3,50,0b6,91,fa, 6d 1738 1368 data 88,91,Ffa,c8,c8,08,c8,c2, 31 
1518 688 data c8,c0,3F,d®,F6,a2,60,20, 8b 1748 1370 data 49,d0,f1,ea,ad,20,17,a0, 7b 
1520 680 data ff,ad,d1,17,8d,d1,17,88, 57 1748 1388 data 3c0,91,fa,c8,ad,21,17,91, ef 
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data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
1518 data 
1528 data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
1668 data 
data 
data 
data 
data 
data 
data 
data 
data 
1758 data 
data 
data 
data 
data 
data 
1818 data 
data 
1830 data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
2019 data 
data 
data 
data 
data 
2060 data 
data 
2080 data 
2090 data 
data 
2110 data 
2128 data 
data 
2140 data 
data 
21608 data 
data 


Ffa,c8,ad,22,17,91,fa,“4c, 
38,15,ea,30,3c,bl1,Fa,Bd, 
20,17,c8,b1,fa,8d,21,17, 
cB,bi1,fa,Bd,22,17,ea,ad, 
3c,b1,Ffa,c8,c8,c8,91,Fa, 
88,88,88,88,c0;Ff,d®, fi, 
ea,ad,00,b9,20,17,91,Fa, 
c8,00,903,d0,F6,4c,30,15, 
ea,ea,ea,ea,ea,7f,900,80, 
80,880,00,b1,Fa,29,80,8d, 
96,17,c8,b1,fa,29,80,8d, 
97,17,c8,b1,fa,29,80,Bd, 
98,17,a2,00,18,38,96,17, 
3e,96,17,28,e0,03,d0,F4, 
b1,Fa,8d,95,17,18,2e,S5, 
17,ad,96,17,04,95,17,91, 
fa,88,b1,fa,84,95,17,18, 
2e,95,17,ad,98,17,0d,95, 
17,91,Ffa,88,b1,fa,8d,S5, 
17,18,28,95,17,ad,97,17, 
0d4,95,17,91,Fa,c8,c8,c8, 
c0,3Ff,d0,9f,4c,c6,1B,ea, 
ea,ea,ea,a0,00,b1,Fa,23, 
01,84,96,17,c8,b1,Fa,28, 
01,84,37,17,c8,b1,fa,29, 
01,84,98,17,32,00,18,7e, 
96,17,7e,96,17,e8,e0,03, 
d®o,f4,b1,fa,8d,95,17,18, 
6e,95,17,ad,97,17,8d,95, 
17,91,Fa,88,b1,fa,Bd,SS5, 
17,18,6e,95,17,ad,96,17, 
04,95,17,91,Fa,88,bl,Fa, 
84,95,17,18,68,95,17,ad, 
98,17,04,95,17,91,Fa,c8, 
c8,c8,c8,3F,d0,9f,4c,a4, 
1B,ea,sa,ea,se,25,d®,“c, 
1d,15,ea,sea,ea,ea,26,d®, 
40,1d,15,sea,sa,sa,sa,sa, 
ad,4e,3d,c9,00,d8,03,“4c, 
65,fa,ee,20,d0,sa,a2,5®, 
ad,ff,ad,7f,18,8d,7f,18, 
88,d0,F7,ca,d®d,f2,4c,"4a, 
13,ea,00,ea,ae,fc,12,bd, 
30,16,2d,1c,d@,F8,10,ad, 
a2,18,09,01,F0,06,ee,a2, 
18,4c,03,18,ce,a2,18,4c, 
30,15,ea,ea,ea,sa,ae,fc, 
12,bd,30,16,2d,1c,d8,F®, 
180,ad,a2,18,c9,01,F0,06, 
ee,a2,18,4c,99,17,ce,a2, 
18,4c,380,15,ea,ea,ea,®3, 
2c,30,c0,ea,ea,sa,ae,fc, 
12,bd,30,16,2d,1c,d®,f®, 
EB,ea,ea,ea,ea,sa,a®d,00, 
a2,00,b1,Ffa,3d,27,18,c9, 
80,F0,8c,dd,e7,18,F0,07, 
b1,fa,5d,e7,18,91,Fa,eB, 
ed,24,d0,e6,c8,c2,40,d®, 
df,4c,1d,15,ea,06,ea,a9, 
02,8d,25,19,4c,38,15,89, 
01,8d,25,19,4c,38,15,a9, 
02,84,25,19,4c,88,15,89, 
03,8d,25,19,40,38,15,a9, 
04,8d4,25,19,4c,38,15,a9, 
05,8d,25,19,40,a8,15,a9, 
06,84,25,19,4c,a8,15,a9, 
07,8d,25,19,4c,34,15,8a, 
490,ea,ac,25,19,b9,27,d0, 
aa,ac,fc,12,b9,27,d0,ac, 
25,19,99,27,d0,Ba,ac,fc, 
12,99,27,dd,ea,ad,1c,d®, 
8d,68,19,ac,25,19,b9,30, 
16,2d,68,19,c9,20,f0,2fF, 
ac,fc,12,b9,30,16,0d,ic, 
d9,8d,1c,d0,4c,b6,19,ac, 
fc,12,a9,ff,38,£9,30,16, 
2d,1c,d8,8d,1c,d@,ac,fc, 
12,b9,30,16,2d,68,19,c9, 
00,F0,0Ff,ac,25,19,b9,30, 


19c8 
1948 
1948 
1988 
1988 
19F8 
19FB 
1308 
1308 
1310 
1a18 
1a20 
1a28 
1330 
1338 
1a40 
1848 
1350 
1a58 
1a60 
1a6B 
1370 
1a7B 
1a80 
1a88 
1390 
1398 
laa®d 
laaß 
1ab® 
lab8 
lacd 
lac8 
1ad® 
1ad8 
1ae® 
laeB 
1af® 
1af8 
1b88 
1b08 
1b1® 
1b18 
1b28 
1b2B 
1b38 
1b38 


2188 
2198 
22008 
2210 
2220 
2230 
2240 
2258 
2268 
2270 
2288 
22308 
2308 
2318 
23208 
23308 
23408 
2359 
2368 
2370 
23808 
2390 
24008 
2410 
24208 
2430 
2440 
E4SO 
2468 
2470 
2488 
2498 
2598 
2519 
2520 
2530 
2540 
2550 
2560 
2578 
2588 
2598 
2608 
26198 
26208 
2630 
2648 


602092 


60010 


69020 


69039 
689408 
699598 
690608 
69070 
69080 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


for a= 4864 to 5368 step 


16,8d,1c,d8,8d,1c,d®,“c, 
e1,19,8c,25,19,39,ff,38, 
£9,30,16,2d,1c,d8,8d,1c, 
dd,ea,sa,sa,ad,17,d0,8d, 
68,19,ac,25,19,b9,30,16, 
2d,68,19,c9,00,f0,0F,ac, 
fc,12,b9,30,16,2d4,17,d®, 
8d,17,d0,4c,15,1a,ac,fc, 
12,a9,Ff,38,£9,30,16,2d, 
17,d0,8d,17,d8,ac,fc,12, 
b9,380,16,2d,68,19,c9,00, 
£d,0F ,ac,25,19,b9,30,16, 
0d,17,d0,84,17,d0,4c,43, 
la,ac,25,19,a9,ff,38,f9, 
30,16,24,17,d0,8d,17,d®, 
ea,ea,ea,ad,1d,d®,8d,568, 
19,ac,25,19,b9,30,16,2d, 
68,19,c9,00,F0,0Ff,ac,fc, 
12,69,30,16,0d,1d,d0,8d, 
1d,d®,4c,74,1a,ac,fc,12, 
a9,ff,38,F9,30,16,2d,1d, 
d®,8d,1d,d8,ac,fc,12,bS, 
30,16,24,68,19,c9,00,F®, 
OF ,ac,25,19,b9,30,16,2d, 
1d,d2,8d,1d,d®,4c,9f,1a, 
ac,25,19,a9,fF,38,f9,30, 
16,2d,1d,d0,8d,1d,d2,4c, 
1d,15,2ea,ea,65,fa,ea, 78, 
ad,14,03,8d,a4,1a,ad,15, 
03,8d,a5,1a,a9,24,8d,14, 
03,89,13,8d4,15,03,82,00, 
bd,00,10,94,86,15,a9,00, 
94,00,10,e8,e0,da,d0,F®, 
58,20,72,73,ea,“4c,ic,1ib, 
ea,ea,ff,09,3e,89,5b,08, 
78,09,95,25,38,25,5b,25, 
78,25,95,Bd,e6,39,00,8d, 
1c,d0,8d,1d,d0,8d,17,d0, 
a0,00,39,27,d0,c8,c0,08, 
do,F8,39,01,8d,25,d0,a9, 
03,8d,26,d0,30,00,b9,da, 
1a,99,0d4,13,c8,c8,11,d®, 
£f5,4c,1d,15,78,ad,at,la, 
8d,14,03,ad,a5,1a,8d,15, 
03,a2,00,bd,86,15,9d,2®, 
18,e8,e0,03,d0,f5,a9,20, 
8d,15,d0,58,69,00,09,00, 


B:5-®:c=-®:Ffor b*-® to 7: 
gosub 699498 


s=s+h+l-c:c=s>255:5=255-s 


and 255:poke a+b,h+l:next 
b:gosub 69049 


fS="pruefsumme ok”:if s<> 


h+l then F$="[rvs] 
prusfsummenfehler":f=fF+1 


gosub 69899:next a:print ” 


CdownJ”f”fehler”:end 


read h$:gosub 69058: h-1* 


16:h$=mid$ Ch$,2) 


l=-asc Ch$+”x”)-4B8:if 1<9 


or 1>22 then 60089 


if 1<18 then return 
1=-1-7:if 1>9 then return 
F$=-"[rvsleingsbefehler”:1- 


B:f-f+1 


print ”zeile” psek (64)* 


256+peek (63)Ff$:return 


saven des programms nach starten 
des loaders mit 


poke 43, 


Mit diesem Listing wird der Sprite-Editor des 128er sinnvoll erweitert. 
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®:poke 44, 19 
poke 45, 61:poke 46, 27 
save ”name”,B 


4199 


5934 


2267 
2715 
3198 
1044 
1334 
2468 


2726 


Praxis Listing 3777ER 


Programmiierhilfe 
für C64-Besitzer 


System: C64/Floppy 
Utility 
Sprache: Assembler 


Der C64 bietet dem Programmierer 
nicht gerade viele Hilfen an. Lange 
Befehlssequenzen und umständliche 
Poke-Befehle strapazieren die Geduld 
des Benutzers. „Screen Saver" ermög- 
licht es, acht Bildschirme gleichzeitig 
im Speicher zu halten und diese auszu- 
drucken oder auf Diskette abzuspei- 
chern. Die Handhabung des Tools ist 
einfach: Alle Befehle werden über Ta- 
stendruck aufgerufen und sofort aus- 
geführt. „Screen Saver“ wird mit 
LOAD,„name“,8,1 geladen und mit 
SYS 50688 gestartet. Ist das Tool initia- 
lisiert, so stehen folgende Befehle zur 
Verfügung: 

CONTROL + INST/DEL 

Löschen der gesamten Zeile in der 
der Cursor steht. 

CONTROL + D 

Löschen ab der Cursorposition bis 
Zeilenende. 

CONTROL + U 

Löschen des Bildschirms unterhalb 
des Cursors. 

CONTROL + CLR/HOME 

Setzt den Cursor in die linke untere 
Ecke. 

CONTROL + „Klammeraffe“ 

Zum Anzeigen des noch verbleiben- 
den Basicspeichers. 

CONTROL + O (nicht „Null“) 
Bewirkt ein Renew eines durch NEW 
oder Reset gelöschten Basicpro- 
gramms. 

CONTROL + RETURN 
Automatische Zeilennummernvorga- 
be. Die Schrittweite ist nach dem Start 
des Tools auf 10 eingestellt, kann je- 
doch mit POKE 189 (neue Schrittweite) 
geändert werden. 

CONTROL + RUN/STOP 

Das erste Programm wird von Disket- 
te geladen. 

CONTROL + F 

Anzeigen des Fehlerkanals. 
CONTROL +P 

Ausdrucken des sichtbaren Bild- 
schirmes. 

CONTROL + K 

Wie „Control + K*. Zwischen den aus- 
gedruckten Zeilen wird jedoch kein 
Abstand gelassen. 

Die beiden Hardcopyroutinen sind 
auf den MPS 801 zugeschnitten. 


N ee ER Eee: 


„Screen Saver“ ist ein 
universelles Tool, das 
viele Schwachstellen 


des C64 beseitigt und 
mehrere neue Befehle 
zur Verfügung stellt. 


CONTROL + C 

Zum Senden von Diskbefehlen an das 
Laufwerk. Die Befehle werden wie 
weiter unten beschrieben mit Hilfe ei- 
ner REM-Zeile übergeben. 
CONTROL + Y 

Zum Belegen der Funktionstasten. 
(Wird später näher erklärt.) 
CONTROL + — 

Ausschalten von „Screen Saver" 
Sollen Diskettenbefehle mit „Screen 
Saver" gegeben werden, so müssen 
diese in Form einer REM-Zeile einge- 
tippt werden. Zum Beispiel: 


REM„S:GAME + (RETURN) 
(CONTROL + C) 


Diese Eingabe würde alle Program- 
me, die mit GAME beginnen, auf der 
Diskette löschen. Achtung — zwischen 
REM und den Gänsefüßchen darf kein 
Leerzeichen stehen. 


Funktionstasten sinnvoll 


belegt 
VRR EEE IE SEHTERETRETE 


Die Funktionstasten sind mehrfach be- 
legt. Die „normalen“ Funktionstasten 
(F1-F8 ohne beziehungsweise mit der 
SHIFT-Taste) geben einen von dem 
Benutzer frei definierbaren, bis zu 10 
Zeichen langen Text aus. Der zu defi- 
nierende Text wird ebenfalls wie 
oben beschrieben in einer REM-Zeile 
übergeben. Um zum Beispiel die Fl- 
Taste mit dem Text „NAME" zu bele- 
gen, gibt man folgende Befehlsfolge 
ein: 


REM,„INAME (RETURN) 
(CONTROL + Y) 


Die „l" steht hier für die Funktionsta- 
steFl. 

Werden die Funktionstasten zusam- 
men mit der CONTROL-Taste ge- 


drückt, so wird der Bildschirm ge- 
wechselt. Insgesamt stehen 8 Bild- 
schirme zur Verfügung. Allerdings 
werden bei der Initialisierung nicht 
nur die Bildschirmcodes, die im Spei- 
cher von 1024-2032 liegen, vertauscht, 
sondern auch das Farb-RAM sowie 
die Bildschirmzeilen-Verknüpfungsta- 
belle. 


Laden und Abspeichern 
der Bildschirme 


Beim Laden beziehungsweise Spei- 
chern eines Bildschirmes muß der 
Filename, wie oben beschrieben, 
dem Rechner in einer REM-Zeile 
übergeben werden. 


CONTROL + W speichert dann den 
aktuellen Bildschirmbereich ab — mit 
CONTROL + L kann das Bild wieder 
geladen werden. 


Soll ein Bildschirm unabhängig von 
dem Tool geladen werden, so ist das 
Programm „Screen Loader" (Listing 2) 
nötig, welches die Laderoutine von 
„Screen Saver" enthält. „Screen Loa- 
der“ ist eine Unterroutine die an eige- 
ne Basicprogramme angehängt wer- 
den kann. Die Routine muß vor dem 
ersten Aufruf mit GOSUB 60000 initiali- 
siert werden — das eigentliche Ma- 
schinenprogramm wird dann in den 
Kassettenpuffer ab Adresse 828 ge- 
schrieben. Geladen wird ein Bild- 
schirm mit GOSUB 60050, wobei der 
Filename der Variablen NA überge- 
ben werden muß, 


Das Programm ist als kombinierter 
Hexdump-Basiclader abgedruckt 
(Listing 1). Wird das Programm als Ba- 
siclader eingegeben, so muß der La- 
der vor dem Start abgespeichert wer- 
den. Nach RUN werden dann die Da- 
ten in den Speicher gepoket. Das ferti- 
ge Maschinenprogramm kann dann 
mit 

POKE 43,0 :POKE 44,198 

POKE 45,253:POKE 46,207 

SAVE „name“,8 


auf Diskette abgespeichert werden. 
Wird es als Hexdump eingegeben, so 
muß der Checker benutzt werden. Als 
Startadresse ist C600 einzugeben. 


A umge > 
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a9,0e,a®d,cd,28,1e,ab,aS, 
02,85,bd,78,a9,50,8d,18, 
03,39,ca,8d,19,03,ad,14, 
03,84,8b,cc,ad,15,83,8d, 
Bc,cc,a9,5e,8d,14,03,a9, 
c6,8d4,15,03,a9,00,85,b6, 
a0,0e,8c,280,d0,88,8c,86, 
02,88,88,8c,21,d0,8d,06, 
03,c9,f1,F0,08,8d,8d,cc, 
a9,f1,8d4,06,03,3d,07,03, 
c9,c7,f0,08,8d,8e,cc,a9, 
c7,84,07,03,58,60,a5,cb, 
c5,b6,d0,03,6c,8b,cc,a5, 
cb,85,b6,a8,01,b9,a2,cc, 
£0,79,c5,cb,f8,04,cB,4c, 
6d4,c6,98,03,a8,88,ad,8d, 
02,c9,04,F0,05,c09,02,d2, 
3Ff,c8,b9,37,cc,8d,84,cc, 
b9,af,cc,8d,9a,cc,b9,b7, 
cec,Bd,a®d,cc,Bd,2e,cc,Bd, 
31,cc,8d,3f,cc,8d,43,cc, 
Bd,4a,cc,8d,51,cc,8d,58, 
cc,8d,5f,cc,8d,66,cc,8d, 
6d,cc,8c,4e,ca,20,6f,cc, 
20,ee,cb,20,77,cc,d®,9c, 
c93,01,d0,01,c8,98,0a,a8, 
b9,9b,cf,8d,df,c6,b9,Sc, 
cf,8d,e8,c6,a0,80,b9,Ff, 
£f,39,77,02,c8B,c0,8a,d®, 
f5,84,c6,ad,8d,802,c9,04, 
£f0,03,4c,64,c6,a5,cb,85, 
b6,f0,67,30,00,b9,c9,cc, 
d®,23,4c,64,c6,c5,b6,Ff®, 
03,c8,d®,f1,98,0a,a8,bS9, 
dd,cc,8d,823,cd,b93,de,cc, 
8d,04,cd,20,7F,cc,6c0,03, 
cd,ad,8b,cc,8d,14,03,ad, 
8c,cc,8d,15,03,ad,Bd,cc, 
8d,06,023,ad,8e,cc,8d,07, 
03,a9,47,8d,18,03,a9,fe, 
8d,19,03,39,8d,a0,cf,20, 
le,ab,a9,9d,20,d2,ff,aS, 
46,20,d2,ff,20,d2,ff,a3, 
0d,20,d2,Ff,20,85,cc,6c, 
8b,cc,a6,d6,20,ff,e9,a9, 
00,85,cf,f®,ef,a9,80,85, 
d4,85,d8,a9,9d4,209,d2,Fff, 
a9,20,20,d2,Ff,a9,9d,20, 
d2,Ff,4c,50,c7,a9,00,85, 
cf,18,a2,18,a0,00,20,f2, 
FfF,4c,50,07,a9,00,20,bd, 
£Ef,a9,01,a2,08,a0,0F,20, 
ba,ff,20,c0,ff,a2,01,20, 
c6,ff,29,cf,ff,20,d2,fEF, 
c9,0d,d0,f6,20,cc,ff,a9, 
01,20,03,Ef,40,56,C07,80, 
7FE,cc,a9,00,20,bd,ff,aS, 
01,22,08,a80,0f,20,ba,ff, 
20,c0,ff,a2,01,20,c9,ff, 
a0,02,b9,00,02,F0,07,20, 
d2,ff,c8,4c,da,c7,20,cc, 
££f,a9,01,29,c3,ff,4c,94, 
c7,48,8a,48,98,48,ac,Bd, 
02,88,Ff0,fa,88,d0,Ba,a2, 
50,a0,ff,88,d0,fd,ca,d®, 
£f8,68,38,68,aa,68,6c,Bd, 
cc,20,7F,cc,a9,04,05,01, 
85,01,39,80,20,bd,Ff,a®, 
00,3d,18,d0,293,02,F0,02, 
a0,07,89,01,a2,04,20,ba, 
fF,20,c0,ff,a2,21,20,c9, 


FF,a9,020,80,04,85,fe,84, 
£ff,a2,19,a5,b6,c9,29,f20, 
06,20,9d,c8,4c,54,c8,a9, 
0d,20,d2,Ff,a8,00,bl,fe, 
85,fc,29,80,F0,05,a9,12, 
20,d2,ff,a5,fc,29,3f,86, 
fc,24,fc,10,02,09,80,78, 
02,09,40,20,d2,FFf,a9,32, 
29,d2,ff,c8,c0,28,d9,d6, 
S8,18,65,fe,85,fe,90,022, 
e6,ff,ca,d®,b6,a9,0d,20, 
d2,Fff,20,cc,ff,a9,7e,20, 
c3,Ff,4c,50,c7,39,08,20, 
d2,Fff,a9,04,20,d2,ff,aSg, 
OF ,4c,d2,ff,ad,22,02,38, 
e9,30,04,38,b9,9b,cf,8d, 
cc,c8,b9,9c,cf,Bd,cd,cB, 
a0,00,69,03,02,c39,5f,d®, 
02,29,0d4,39,ff,Ff,c8,cßd, 
0a,d0d,ef,4c,50,07,20,7f, 
cc,a9,08,85,9d4,a8,02,bS, 
00,02,£0,03,c8,d2,f8,88, 
88,38,a2,02,80,02,20,bd, 
FfF,a2,08,30,01,20,ba,ff, 
a2,00,a0,04,86,fb,B4,fc, 
a9,fb,a2,e8,a0,07,20,d8, 
FF,e6,b7,a4,b7,a9,46,3993, 
01,02,a2,08,30,01,20,ba, 
ffF,a2,00,a0,d8,86,Ffb,84, 
fc,a9,fb,a2,e8,a®,db,22, 
d8,Fff,a4,b7,a9,53,39,01, 
02,282,08,30,01,20,ba,ff, 
20,c0,ff,a2,53,20,c9, ff, 
a0,d9,b9,00,00,20,d2,ff, 
c8,c0,f1,d0,f5,38,20,f0, 
EF,Ba,20,d2,FF,38,20,d2, 
£ff,ad,86,02,20,d2,ff,ad, 
20,d0,20,d2,FFf,ad,21,d2, 
PO,d2,Ff,20,cc,ff,a9,53, 
20,c3,Fff,4c,5C,07,20,7f, 
cc,a®,00,84,9d,b9,22,22, 
f0,03,cB,d®,f8,98,a2,22, 
a0,02,20,bd,Ff,a2,28,a0, 
00,20,ba,ff,a9,00,aa,ad, 
04,20,d5,ff,86,ae,Bt4,af, 
e6,b7,84,b7,39,46,99,01, 
02,a2,08,a0,00,20,ba,ff, 
a9,00,aa,a0,d8,20,d5,ff, 
86,ae,B4,af,a4,b7,a9,53, 
99,01,02,22,08,20,00,20, 
ba,ff,20,c0,ff,a2,53,20, 
c6,ff,a0,d9,20,cf,ff,39, 
00,00,c8,c0,f1,d®,f5,20, 
cf,ff,aa,20,cf,ff,aß,18, 
20,F0,fFFf,20,cf,ff,8d,86, 
02,20,cf,ff,8d,20,d0,20, 
cf,ff,8d,21,d0,a9,53,22, 
c3,ff,4c,50c,c7,20,08,ca, 
20,7F,cc,a®,01,98,91,2b, 
20,33,85,18,a5,22,69,02, 
85,2d,a5,23,69,00,B5S,2e, 
20,60,36,20,85,cc,6c,022, 
a0,20,7F,cc,38,85,33,e5, 
31,aa,35,34,e5,32,20,cd, 
bd,a9,60,30,e4,20,1e,ab, 
4c,50,0c7,20,7F,cc,a9,c®, 
ad,cc,20,1e,ab,a2,20,a9, 
090,20,cd,bd,a9,0d,20,d2, 
£f,4c,50,c7,48,83,48,38, 
48,a9,7Ff,8d,2d,dd,ac,®d, 
dd,190,03,4c,72,fe,20,02, 


ca7® 
ca7B 
caB® 
caBB 
ca9® 
ca98 
caa®d 
caaB 
cab®d 
cab8B 
cac® 
cacB 
cadd 
cadd 
caed 
caeB 
caf® 
caf8 
cb88 
cb88 
cb1® 
cb18 
cb28 
cb28 
cb3® 
cb38 
cb4® 
cb48B 
cb58 
cb58 
cb68 
cb68B 
cb7® 
cb78 
cbB® 
cbBB 
cb38 
cb38 
cba® 
cbaB 
cbb® 
cbbB 
cbc® 
cbcB 
cbd® 
cbdB 
cbed 
cbeB 
cbf® 
cbf8 
cc0d8 
cc88 
 ec1® 
cc1B 
cc28 
cc2B 
cc3® 
cc38 
ccHO® 
ccH4B 
cc58 
cc5B 
cc6B 
cec6B 
cc7® 
cc78B 
cc8B8 
cc88 
cc398 
cc98 
cca®d 


1438 
1440 
1458 
1468 
1478 
1488 
1498 
1508 
1512 
1520 
1538 
15498 
1558 
1568 
1578 
1580 
1598 
1698 
1618 
1628 
16308 
1640 
1659 
1668 
1670 
1688 
1699 
179098 
1710 
1720 
1738 
1740 
1758 
1760 
1770 
1780 
1790 
1800 
1818 
1820 
1830 
1849 
1850 
1860 
1878 
1888 
1839 
1900 
1910 
19228 
1938 
1949 
1958 
1968 
1978 
1980 
1998 
29028 
20128 
2020 
2032 
2040 
2050 
20608 
2078 
2080 
20308 
2108 
211® 
2120 
2138 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


fd,d®,03,6c,02,80,20,bc, 
f6,20,e1,ff,f8,03,4c,72, 
fe,28,15,fd,20,a3,fd,20, 
18,e5,20,0b,c6,39,8d,a®, 
cf,20,1e,ab,6c,82,a0,38, 
20,f0,ff,86,fb,84,fc,20, 
ff,e9,e8,e80,19,d0,f8,a6, 
fb,a4,fc,18,20,F0,ff,4c, 
50,c7,38,280,F8d,Ff,86,Ffb, 
B4,fc,a9,20,20,d2,ff,c8, 
c0,28,d0,f8,a4,fc,18,20, 
Fo,ff,4c,50,07,00,7f,cc, 
a0,00,b93,02,02,f0,23,c8, 
d®d,f8,ad,22,02,c9,24,F®, 
41,98,a2,02,86,22,a2,22, 
86,23,20,b5,b7,20,f7,b7, 
a9,24,20,d2,ff,a5,15,H4a, 
Ya,4a,4a,20,13,cb,a5,15, 
20,13,cb,35,14,4a,4a,4a, 
4a,20,13,cb,a5,14,20,13, 
cb,d®,3b,29,0Ff,c9,0a,18, 
30,02,69,07,69,30,20,d2, 
ff,60,ad,06,02,20,56,cb, 
85,fc,ad,85,02,20,56,cb, 
Da,0a,0a,0a3,05,fc,aa,ad, 
04,02,20,56,cb,85,fc,ad, 
03,02,20,56,cb,2a,0a,®a, 
0a,05,fc,28,cd,bd,a9,0d, 
e8,de2,Ff,4c,50,07,.09,41, 
38,380,82,e9,27,e9,30,60, 
30,00,b9,05,cd,f®,06,20, 
d2,ff,c8,d®d,F5,a9,0d,8d, 
77,02,a9,52,8d,78,02,a83, 
d5S,84,79,02,39,3a,8d,7a, 
02,a9,0d,8d,7b,02,39,05, 
85,c6,40,50,07,89,63,a2, 
cd,28,1e,ab,a9,46,a®,ce, 
ed,1e,ab,a9,28,a®,cf,20, 
le,ab,4c,5c0,c7,a5,14,a4, 
15,8d,fe,9f,18,65,bd,aa, 
98,8d,ff,3Ff,69,20,20,cd, 
bd,a9,28,20,d2,ff,4c,5c, 
c7,a80,00,a6,ff,f2,14,b1l, 
fa,4B;b1,06791,f78,68,31; 
fc,c8B,d®,f3,e6,fb,e6,Ffd, 
ca,dd,ec,a6ß,fe,f®,de,bi, 
fa,48,b1,fc,91,fa,68,51, 
fc,c8,ca,d®,f2,60,a0,00, 
b9,91,cc,99,fa,28,c8,c0, 
06,d0,F5,28,c1,cb,a8,20, 
b9,97,cc,99,fa,00,c8,c®, 
06,d0,F5,29,c1,cb,a®,0®, 
b9,9d,cc,99,fa,00,c8,c2, 
06,d0,F5,28,01,cb,20,77, 
cc,38,20,F0,ff,98,4B,Ba, 
4B,20,6Ff,cc,ac,ec,a7,ae, 
ed,a7,20,77,cc,18,20,f®, 
Ff,20,6f,cc,68,8d,ed,a7, 
68,8d,ec,a7,ad,86,22,4B, 
ad,ee,a7,8d,86,02,68,Bd, 
ee,a7,ad,20,d0,48,ad,ef, 
a7,84,20,d0,68,8d,ef,a7, 
ad,21,d0,48,ad,f®,a7,8d, 
21,d0,68,8d,f0,a7,60,78B, 
85,01,29,fd,85,21,60,85, 
01,09,02,85,21,58,60,a9, 
80,8d,de,dc,60,a9,81,8Bd, 
08,dc,60,31,sa,1a,a7,®b, 
c6,200,04,00,a0,e8,203,00, 
d8,89,a3,88,03,d9,00,d3, 
a7,19,00,04,05,06,03,00, 
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03 


cca8ß 
ccb® 
ccbB 
ccc® 
ceccB 
ccd® 
ccd8 
cce®d 
cceB 
ccf® 
ecfB 
cd®® 
cd88 
cd18 
cd18 
cd28 
cd28 
cd38 
cd38 
cd49 
cd48 
cd58 
cd58 
cd68 
cd68 
cd7® 
cd78 
cd88 
cd88 
cd38 
cd98 
cda®d 
cdaß 
cdb® 
cdb8B 
cdcd 
cdcB 
cddd 
cdd8 
cde®d 
cdeB 
cdf® 
cdfB 
ced® 
ced8 
ceil® 
cel8 
ce2® 
ce28 
ce3® 
ce38 
ce4d 
ce4B 
ce508 
ce58 
ce6d 
ce68 
ce78 
ce78 
ceBd 
ceBB 
ce3® 
ceS8 
cead 
ceaB 
ceb® 
cebB 
cecd 
cecB 
cedd 
ced8 


2140 
2158 
2168 
2170 
2188 
2190 
22008 
2219 
2220 
2238 
B24O 
2258 
2268 
2270 
2288 
22908 
23008 
2310 
23208 
2338 
2340 
2350 
2368 
2378 
2388 
2398 
2400 
2410 
2420 
2430 
2440 
2459 
2460 
2470 
2480 
2490 
2598 
2510 
2520 
2530 
2540 
25598 
2568 
2570 
2588 
2598 
26008 
2618 
2620 
26308 
2640 
2650 
2669 
2678 
2688 
2698 
2708 
2710 
27208 
2730 
2740 
2758 
2760 
2770 
2788 
27998 
2800 
2810 
2820 
28398 
2840 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


a8,38,b8,b8,ed,e8,f®d,fB, 
a3,ab,b3,bb,e3,eb,f3,Fb, 
a7,af,b7,bf,e7,ef,f7,ff, 
93, 413798, 49:45,.48,20,03, 
00,19,28,03,09,2a,26,2b, 
33,39;15:18,21,29,25;,1s; 
12,22,3f,01,00,ac,c8,29, 
ca,43,ca,d6,c8,76,c9,05, 
08,21,07,059,07,69,07,89%4, 
607,bf,c7,8d,cb,11,c8,11, 
c8,97,ca,b2,ca,cd,ca,60, 
oH,BS,CcD,£EE,FF UGS GE,RE, 
Ba,22,2c,38,33,20,53,11, 
39, 533,43, 58,45.,35.9487207 
33;47)55,43,52520756,33, 
2e,34,20,28,43,29,20,31, 
39,38,36,2f,38,37,20,42, 
59,20,41,28,20,46,45,He, 
54,11, 54,59,598,45,28,3c6, 
43,54,52,46,20,2D,20,49, 
38,20,54,48.,20,53545,45; 
29,53, 59; 53, SE N5,40,20; 
43, 32,44, 4d.41 Se IE 53, 
0d,2d,00,8d4,8d,53,59,53, 
54,35, 4d,20,43, 444,30; 
41.49,44.,537/208,41,52,35; 
e0:,230,43:37,.48,54,52,4E; 
4c,3e,20,2b,20,3a,0d,0d, 
2d,20,53,43,50,45,45,4e, 
£0,53541,56,45,52 528,4} 
46,46,20,dd,5f,20,45,53, 
43,41,50,45 SESYUU US NG, 
45,54,45,0d,50,20,48,41, 
52,44:43,42,50,59, 20,57, 
49,54,48,20,40,46,20,dd, 
4b,20,48,2d,43,4f,50,59, 
29,57543,54,40, 46, 55788, 
20,40,46,0d,4f,20,52,45, 
4e8,45,57,20,580,52,4£,47, 
52,41,4d,4d,45,20,20,dd, 
40,20,44,49,53,50,4c,41, 
53; 20,44 .95: 49, 40..52,59, 
0d,41,20,53,43,52,45,45, 
4Ye,20,4e,55,4d,42,45,52, 
20,20,20,20,dd,59,20,52, 
45,44 45 468749, 487457 20, 
45,45,59,53;,04,14520,43, 
45,45,41,52,20,43,52,53, 
52,20,54,4f,20,45,4e,44, 
09,55, 20,43740,.45,41,52; 
20,34, 46520,53543,58,45, 
45,4e,45,4e,44,00,57,20, 
53;41,56,45,20,53,43,58, 
45,45,48e,20,20,20,20,20, 
20,00,40,20, 46, 48.,41, 4%; 
290,53,43,52,45,45 4s,2d, 
46,20,73,49,93,90,40,37T, 
59,28,53,53,41753,55;53, 
20,20,20,dd,43,20,53,45, 
48,44,290,43,4f .49,44,41, 
4e,44,0d4,49,20,53,4B,4f, 
57,20,53,99,53, 94.45.34, 
280,4b,45,59,53,20,dd,“a, 
29,13,40., 98, 55,45:58,5%, 
20,4e,55,4d,42,45,52,0d, 
04,36; 52,99, 418; 00,53:5%; 
4.7,50538,20,41074E 41,4%, 
20,46,49,52,53,54,20,50, 
SP74E 547,582, 21,40,40,,45;5 
20, 4f,48,20,44,498,53,43, 
04, 30,48, 48,53754, 2,44, 
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FF® 3190 data 20.14.14,50,52.49.4e,54, da 
ceeB 2860 data 52.20.57.4B.4F.40,45,20, 69 | ° ‚14,14,50,52,49,4e,54, 
a ee ne a as ie ag |. SEFB 3208 data 2n,un,20,54,00,90,00.00,.00 
cef8 2880 data 52.2F.48,4F,4d,45,3e,20, 42 
cFO® 2830 data 53.45,54,20,43,55,52,53, 2f 
| cEOB 2300 data 4F,52,20,54,4F,20,53,43, 0B 
| cf1® 2910 data 52,45,45.4e,45.4e,44,0d, 32 
cf18 2928 data 3c,52,45,54,55,52,4e,3e, ee 60018 
cf20 2930 data 20.41.55.54.4F.0d,04.00, 2F 
cf2B 2940 data 30.53.48.49.46,54,3e,20, FB 
cf30 2959 data 53,54.4f.50,20.4c.49,53, cB 
cf38 2960 data 54,49,48e,47,20d,30,43,3d, e9 
cf4® 2970 data 3e.20.40,49,53.54,20,53, ed 


cee®d 2850 data 45,4o,3e,20,43,40,45,41, 12 cfe8ß 3188 data 14,53,41,56,45,20,22,20, d4 
| 


600008 for a-50688 to 532408 step 3964 

B:s=d:c=-®:for b=® to 7: 

gosub 690049 

s=s+h+l-c:c=s>255:s-255-s 5934 

and 255:poke a+tb,h+tl:next 

b:gosub 69040 

60020 F$="pruefsumme ok”:if s<> 5639 
h+l then fF$="[rvs] 


cF4B 2980 data 4c.4f,57,0d,0d,30,46,31, 2d pruefsummenfehler":£=F+1 

cf50 2990 data 2d,46,38,3e,20,50,52,49, ba en Ge nn USERN 2267 
cf58 3800 data He,54,20,53,45,4c,46,20, e6 a ee 
cf60 3010 data 44,45,46,49,4e,45,44,20, 29 ee. ee 

cf6EB 3220 data S4,45,58,54,04,30,46,39, Fl ei ae 

cf7® 3838 data 2d,46,31,36,3e,20,53,57, fc rigen: a ee 
cf80 3050 data 4e,20,57,49,54,48,20,52, 16 et EEE 
cf88 3060 data 41,4d,0d,0d,00,53,43,52, 93 BSODe Sue ans 1m) De 
cf3® 307@ data 45,45,4e,20,53,41,56,45, 51 Des 8 


cf98 3088 data 52,20,4f,4e,00,ad,cf,b7, 9e 
cfa®d 3098 data cf,ci,cf,cb,cf,dS,cf,df, fc 5 
cfaßB 3100 data of.e3.cf.‚f3.of,52,55,4e, 46 E56+peak (E3IFS: return 
cfb® 311® data 3a,20,20,20,3d.3d,0d,52, ds 
cfbB 3120 data 55.4e.20.20.20.20.3d,.3d, 07 
cfc® 3130 data 9d.40,49.53.54,38.20,20, 61 Bey 208 u es 
cfc8 3149 data 20,20,0d4,40,49,53,54,20, eb ag 

cfd® 3159 data 20,20,34.9d,3d,4c.4Ff,41, Sf 
cfdB 3160 data 44,20,22,20.20,14,14,56, FO poke 113, @:poke 4,158 


cfe® 317® data 45.52,49,46,59,20,22,20, 31 pokm. "A,ER 1 EBRE ER EO 


60080 print "zeile” peek (64)* 2726 | 
| 
| 

save ”name”,B | 
| 
| 
| 
| 
| 
| 


| 
cF78 3040 data 41,50,20,53,43,52,45,45, b® Or ern REES | 


Listing 1: Kombinierter Hexdump-Basic-Lader 


60000 For t-B28 to 364 1083 Update _ 
60018 read q:poke t,q 10083 N h en 
60028 s=s+q: next 538 
600380 if s<>18754 then print ”?Tdata error” 2618 tn trage und 
:stop 
600848 return 142 orrekturen 
68058 For t-=1 to len (na$) 1188 
60068 poke Si13+t,asc ( mid$ (na$,t,1)) 2071 
60070 next 138 
60080 sys 828 663 
60832 return 142 
60108 data 160,90,132,157,185,2,2,240,3, 6703 
200,208,248,152,162,2,160,2,32,189, 
255 
' 6011® data 162,8,160,0,32,186,255,169,2, 6914 
; 170,160,4,32,213,255,134,174,1382, 
175,230 


60120 data 183,164,183,169,70,153,1,2,162, 7286 
8,1680,0,32,186,255,169,0,170,160,216 

601308 data 32,213,255,134,174,132,175,164, 6657 
183,169,83,153,1,2,162,8,160,0,32, 


186 

60140 data 255,32,192,255,162,83,32,198, 7886 
255,160,217,32,207,255,153,0,0,200, 
132 

60150 data 241,208,245,32,207,255,170,32, 7983 
207,255,168,24,32,248,255,32,207,255 

60168 data 141,134,2,32,207,255,141,32, 7027 
208,32,207,255,141,33,208,169,83,76, 
195 

60178 data 255 612 


Listing 2: Das Unterprogramm „Screenloader“ 


100 GUMD August/87 


A NE N ER he 


Schluß mit 


dem Diskettenchaos 


System: C64/Floppy 
Art: Anwender 
Sprache:Basic 


Wer kennt das nicht? Da sucht man 
ein Spielprogramm, welches man un- 
bedingt vorführen möchte, und findet 
es nicht! Oder ein Tool wird unbe- 
dingt benötigt, doch es versteckt sich 
irgendwo auf einer von Hunderten 
Disketten. Die Lösung des Problems 
lautet „Manager“. Mit „Manager“ las- 
sen sich ohne viel Aufwand Dateien 
anlegen, die alle Disketten und Pro- 
gramme alphabetisch ordnen. Die 
dazu notwendigen Befehle werden 
durch Windows und Pulldown-Menüs 
aufgerufen. Die Ansteuerung der 
Windows erfolgt mit einem Joystick in 
Port 2. 

Folgende Befehle stehen zur Verfü- 
gung: 

1. Eingabe 

In diesem Menüpunkt sind alle Befeh- 
le zusammengefaßt, die Veränderun- 
gen oder Eintragungen in den einzel- 
nen Dateien ermöglichen. Nach dem 
Anklicken mit dem Feuerknopf des 
Joysticks erscheint das Pulldown- 
Menü: 

a) Eintragen 

Hier kann man einen neuen Eintrag in 
die Datei vornehmen. Der Computer 
will sowohl den Namen des Pro- 
grammes als auch den der Diskette 
wissen. Alle Eingaben werden mit RE- 
TURN abgeschlossen. Je nach Größe 
der Liste werden bis zu fünf Sekunden 
benötigt, den Eintrag einzuordnen. 


Endlich Ordnung in die 
Diskettensammlung! 
„Manager“ ist ein Ver- 


waltungsprogramm, 
das speziell für Disket- 
ten ausgelegt ist. 


b) Delete 

Ein falscher Eintrag kann wieder ge- 
löscht werden. Dazu wird nur der be- 
treffende Programmname angege- 
ben. 

c) Disk ändern 

Sollte ein Programmname versehent- 
lich der falschen Diskette zugeordnet 
worden sein, so wird dieser Menü- 
punkt aufgerufen. 


2. Ausgabe 

Die Ausgabe kann entweder auf Bild- 
schirm — Punkt 1 im Pulldown-Menü 
— oder auf Drucker — Punkt2 — erfol- 
gen. 


3. Disk 

Bei diesem Menüpunkt sind alle Dis- 
kettenoperationen zusammengefaßt. 
a) Speichern 

Die erstellte Datei wird auf Diskette 
abgespeichert. 

b) Laden 

Eine alte Datei kann geladen werden. 
c) Spielladen 

Mit diesem Unterpunkt können ande- 


re Programme geladen und gestartet 
werden. 


4. Kommandos 

a) Druckerkommando 

Will man Steuercodes oder sonstiges 
auf Drucker ausgeben, so wird dieser 
Punkt angewählt. Die Steuerzeichen 
sind in Zahlen anzugeben. 

b) Disk-Kommando 

Hier lassen sich Diskettenbefehle sen- 
den. 


c) Directory 


5. Ende 

Das Programm besteht aus zwei Tei- 
len. Teil 1 (Listing 1) ist das Hauptpro- 
gramm. Teil 2 (Listing 2) beinhaltet 
Sprite-Daten und einige wichtige Ma- 
schinenroutinen. Dieser Programmteil 
wird vom Hauptprogramm aufgerufen 
und muß unter dem Namen „Manager 
Boot“ gespeichert werden. Teil 2 ist 
als kombinierter Hexdump-Basiclader 
abgedruckt (Listing 2). Wird das Pro- 
gramm als Basiclader eingegeben, so 
muß der Lader vor dem Start abge- 
speichert werden. Nach RUN werden 
dann die Daten in den Speicher ge- 
poket. Das fertige Maschinenpro- 
gramm kann dann mit 

POKE 43,192:POKE 44,2 

POKE 45,248:POKE 46,3 

SAVE „MANAGER BOOT“,8 

auf Diskette abgespeichert werden. 
Wird es als Hexdump eingegeben, so 
muß der Checker benutzt werden. Als 
Startadresse ist 02c0 anzugeben. 


(A. Dehmel) Sezzau 


S if 10-8 then lo-1:print "Colr]”:load 4033 47 print "C3spaces)(c) 1986 by andreas 3061 
"manager boot”,B,1 dehmel” 

180 clr :print "C[Cclr]”:poke 53280,0:poke 5132 Ss® return 142 
53281,8:poke 646,13:dim a$(255), 1808 mo=-17:n=1:1=1:1$5=left$ (a$l1),1):f= 3874 
d$(255),b$(255) 13: print *colr)” f 

15 dim c$(255), vo$(255), J(255):an=® 2702 104 gosub 185:goto 110 1088 

20 poke 53248,150:poke 53249,88:poke 6683 105 print ”"Cred,home] [cbm h,2spaces] 4567 
53269,1:poke 53287,1:poke 2040,11: forward[2spaces,cbm n,cbm h,2spaces] 
poke 53264, backward[2spaces,cbm n,cbm h, 

25 print "[clr]”:goto 2000° 836 2spaces]Jexit[2spaces,cbm n]”":poke 

30 print ”Chome]0OL7cbm yIPOL7cbm yJPO 7498 53269,1 y 
[C4cbm yJPOC8cbm yJPOCL3chm yJIP” 186 print ” L[lilcbm p,shift @JL[L12chm p, 7167 

35 print ”Ccbm hleingabelchm n,cbm hl 5198 shift @]L[8cbm p,shift @J”:return 
ausgabe[chbm n,cbm hldisk[chm n, 110 sys B2B:y=-peek (53249) :x=peek 5561 
chm hlkommandolcbm n,cbm hlend (S3248)+256*peek (53264): if y>64 
Ccbm n]” then goto 118 / 

40 print ”LL7chm p,shift @JLL7chm p, 7704 112 if x>31 and x<133 then goto 129 1939 
shift @]L[4chm p,shift @JL[Bchm p, 114 if x>132 and x<245 then goto 158 2155 
shift @JL[C3cbm p,shift @1” 116 if x>244 and x<322 then goto 1398 2215 

45 for i=® to 15:print :next i:print "” 3303 118 goto 118 568 
[Sspaces]spiele-manager” 128 print "[Cclr)”:gosub 105:print ” 5253 
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125 
128 
138 
135 
145 
150 
152 


155 
158 
169 
165 
178 
172 
174 
180 
182 


184 
188 
1998 


195 


196 
138 


200 
205 


210 
e3s 


220 
B2S 


226 
227 
238 


231 
232 


233 
234 
240 
2508 
2698 
270 
288 


282 
285 
[== 1] 
3898 
305 


308 
318 


Praxis Listing es mn rer 


Chome,red] [rvs,3spaces)forward 
C3spaces,off,down,13left,rvs, 
13spaces, off]” 
mo=mo+18:n=n+18:gosub 195 

if m255 then mo=mo-(n-255) :n=255 
for i=mo to n:gosub 17®:next i 
gosub 198:goto 184 

sys B2B:goto 20 

print ”"[Cclr]”:gosub 105 

print ”Chome)” tab(14)"[red,rvs, 
3spaces]backward([ 3spaces, off,down, 
14left,rvs,14spaces,off)” 
mo=mo-18:n=n-18:gosub 195 

if mo<1 then mo=1:n=19 

for i=mo to n:gosub 17®:next i 
gosub 198:goto 104 

if left$ (Ca$(i),1)-1$ then goto 189 
if f=-13 then F=S:goto 188 

if f=-5 then f=13 

l1$-left$ (a$(i),1) 

print ”"LCwhtJ”i tab(5S)”"C[Cshift -I";: 
poke 646,f:print a$(i);:print tab( 
e6)”Cwht,shift -1”;:poke 646, Ff 
print d$(i) 

return 

print ”Chome]” tab(2B)"”[red,rvs, 
3spaceslexit[3spaces,off,douwn, 
18left,rvs,1®spaces,off)J”:print ” 
Ccbm 62":goto 28 


print "Chome,wht,3down] nr. 

[shift -Iname :[14spaces, shift -] 

diskette:” 

print "[Sshift *,shift +,20shift *, 

shift +,12shift *]"”":return 

print "[Cwht,Sshift *,cbm e, 

20shift *,chbm e,l2shift *,home)]”: 

gosub 125:return 

print "Cclr,rvs) spiele hinzufuegen 
: LoffI” 

print "[Cdown]Jnoch eintragbare 
spiele: "256-an:print "eingetragene 
spiele: ”an 

print "[3down]” tab(13)”C[rvs, 

E8shift @,0ff)” 

input ”"C2upl]lspielename ";h1$ 

print ”"C3down)” tab(23)”[rvs, 

13shift @,0off)” 

input "[Zuplauf welcher diskette ”; 

h2$ 

if len (a$(an))>208 or len (d$Can))> 

13 then print ”"[C3doun]lstring zu lang 
I":goto 227 

goto 238 

a$lan)="":d$Can)=-"":goto 145 

for i=® to an:if h1$<a$(i) then goto 

232 

next i 

for x=an to i step -1:a$(x+1)=-a$(x): 

dSCx+1)=-dSCx):next x 

a$Ci)=-h1$:d$Ci)=h2$ 

an=an+tl:if an>256 then goto 282 

print "[C6down)nocheinmal?” 

get a$:if a$="” then 258 

if a$<>”j” then 28 

goto 208 

print ”[C3down]zu viele spiele | 
muessen abgespeichert werden !” 

print ”"druecken sie eine taste um 
mit speichernzu beginnen !” 

get aS:if a$S=""” then 285 

goto 308 

print ”"C[Cclr,rvs] spiele speichern 
Loff]” 

print "C2downlJdateiname ? spiele- 

datei”:input ”[up,1dright]”;da$ 

gosub 2700 

print ”"[Cdown)zu speichernde spiele : 
” tab(25)an 


102 Gum Aususver 


2393 
3353 
2064 
1024 
1039 

803 
4735 


2441 
1805 
2064 
1224 
2320 
1628 
1347 
1233 
4947 


683 
142 
4597 


3280 


3376 
3563 


2355 
53984 


4536 


1836 
3339 


2881 
5364 


578 
2374 
2202 


276 
4293 


1625 
2461 
1919 
1450 
1287 

558 
4682 


5453 
1568 

568 
2077 
4478 


593 
3136 


3228 
325 
338 
3498 
358 


3698 
370 


375 
388 
409 
405 


410 
415 


420 


425 
426 


4308 


435 
440 


445 


446 
447 


448 
449 
458 
508 


510 
520 


538 
535 


540 
550 


560 
578 
588 
690 
610 
620 
630 
635 
636 
640 
659 
6698 
678 


6808 
788 


710 


print "gespeicherte spiele :” 

a5="s:”+da$:open 1,8,15,a$:close 1 

a$-da$+”,p,w”:open 1,8,2,a$:print#1, 

an 

for i=1 to an:print#1,a$Ci):print#1, 

d$Ci):print ”"Lup]” tab(25)i:next i 

close 1 

print ”"Cdown]spiele gespeichert I!!!” 

open 1,8,15:input#1,a,b$,c,d:print ” 

C2down]floppymeldung : "b$:print 
’spur : ”G 

print "sektor : 

goto 145 

print ”"Cclr,rvs] spiele laden 

C3spaces, off]” 

print "C2down)Jdateiname ? spiele- 

datei”:input ”[Cup,1ßdright]”;da$ 

gosub 2788 

print ”"Cdown]spiele werden geladen 
Cdown]” 

a$-da$+"”,p,r”:open 1,8,2,3$ 


"d:close 1 


k=-1:input#1,an:if an=® then 449 

print ”Cdown]zu ladende spiele: ”an: 

print "geladene spiele:[Lup)” 
input#1,a$Ck):input#1,dSCk):k=k+1: if 

k>an then 440 

print tab(18)k”Lup]"”:goto 438 

close 1:print ”[2downlspiele 
geladen” 

open 1,8,15:input#1,3,b$,c,d:close 

1:if a<>® then goto 447 

goto 458 

print "fehlernummer 
"fehlermeldung: ”b$ 

print "in spur :”"c:print "in sektor 
:”’d:input "neuer versuch (j/n)";v$ 
if v$<>”n” then 408 

goto 145 

print "Cclr,rvs) delete :[6spaces, 

OREIT 

input "[3downJprogrammname”;c$ 

for i=® to an:if a$(i)=c$ then goto 

540 

next i 

print ”[2down]lprogramm existiert 
nicht!”:goto 5708 

s-i+tl:print "[2down]lfound programm” 

for i=s to an:a$li-1)=a$li):dSti-1)- 

d$Ci):next i 

a$(lan)="":d$Can)="":an=an-1:print 
"programm deleted” 

goto 145 

goto 28 

print ”"[clr,rvs] spiel laden 

C3spaces] : [2spaces,off]” 

input "[2downlwie heisst das spiel”; 

sı$ 

for i=-® to an:if a$(i)=s1$ then s2$- 

d$SCi):goto 648 

next i 

print "[2down)lprogramm nicht in der 
sammlung vorhan-[2spaces)den, daher 
keine” 

print ”angabe der diskette moeglich” 
:5s2$5="[rvs]Junbekannte disketteloff)” 

print ”[2down]llegen sie "s2$” ein” 

gosub 2798 

s$s=chr5 (34):print "[clr,4down)Jload” 

s5s1$s$”,8,1”:print "[4down]run 

Chome]” 

poke 188,3:for i=® to 2:poke 631+i, 

13:next i 

end 

print "[clr,rvs]) drucker-kommandos 

[2spaces,off]” 

print ”C2down,ctrl a] chr$-codes 
angeben[shift-space)":input c1,c2, 

£E3,60H 


:”a:print 


1984 
e4S52 
3179 
3503 

258 


1888 
5734 


1534 

612 
1773 
4478 


593 
1940 


2446 


1997 
3868 


3357 


1606 
2364 


3205 


5sB2 
3678 


4854 
1463 

612 
1556 


2217 
2287 


276 
3338 


1755 
3706 


4909 
612 
429 

2078 

2404 

3359 
276 

6928 

5463 

2394 
593 

3815 

3199 


128 
2861 


3613 


729 
738 
7408 
758 
755 
768 


764 
770 


772 
748 
788 


782 
785 
788 
730 
800 
810 
820 
B25 
830 
840 
850 
860 
870 
880 
830 
300 
910 
320 
930 
340 
350 
950 

1000 


1002 
1005 


19010 


1815 
10208 


1038 
10408 


1050 
1052 


1068 
1070 


10828 
19038 
19032 


1898 


Praxis Listing nn nm... 


print ”C2down]Jkommandos werden 
gesendet” 

open 4,4: print#4,chr$ (Cc1);chr$ 

Ce2);chr$ (c3);chr$ (c4):close 4 

print "C3downJkommandos gesendet”: 

goto 145 

print ”"[clr,rvs] disk-kommando [off] 

”":,ij=9:c$="” 

print "[3downlJdisk-kokmando eingeben 
Er x 

get b$(i):if b$Ci)=""” then 760 

if b$Ci)=chr$ (13) then goto 788 

c$=c$+b$(i) 


print ”Chome, Sdown]”c$ 

i=-i+1:goto 760 

For x=® to i:if b$Cx)=chr$ 

DSCKX)="*":bScx-13="* 

naxt x:03=”” 

for x"® to i-1:c$=c$+bS(x):next x 

print ”C3down)kommando senden ":open 
1,8,15,c$:close 1 

print ”C2down)kommando gesendet”: 

goto 145 

print "C[clr,rvs] diskette aendern : 
Loff)” 

input "[2down]name des spieles "”;na$ 

for i=1 to an:if a$Ci)=na$ then B42 

next i 

print ”file existiert nicht !!”:goto 

860 

input "[down]Jneuer diskettenname ”; 

dis 

d$sCi)=dis 

print "C3downInocheinmal ???” 

get a$:if a$="" then 879 

if a$=-"j" then goto 888 

goto 208 

print ”"[clr,rvs)disketteninhalte : 

C2spaces, off]”:p=® 

input ”"C3downlinhalt von welcher 

C2spaces]Jdiskette”;n$ 

print "inhalt von diskette”:print 

n$:print "[2down,grn]” 

for i=® to an:if d$Ci)=n$ then print 

a8Cli):p=1 

next i:poke 56456,13:print "[2down]” 

if p=® then print ”"nichts” 

goto 145 

print "[clr,rvs] spiele ausdrucken 

C2spaces,off,down]” 

input "heutiges datum ";da$ 

print ”[2down,rvs] a) [off] 
vierspaltig ohne disk” 

print ”"[rvs] b) [off] zweispaltig 
mit disk” 

get a$:if a$=""” then 1015 

d1$="name :[14spaces)”:d2$="diskette 
:C1®spaces)” 

if a$=-"b"” then goto 1108 

ve$-d1$+d1$+d1$+d1$:sa=-4:ve=-int (an/ 

sa)+1 

open 1,4:print#1,chr$ (14); 

print#1,"spiele-liste vom ”da$: 
print#1,"Cdown]” chr$ (129):print#1, 
ue$:print#1 

if sa=2 then goto 111® 

for i=1 to ve:print#1,a$Ci) tab(20- 
len (a$(i)))a$Ci+ve) tab(28-len 
(a$li+ve))); 

print#1,a$(i+2*ve) tab(28-len (a$li+ 
2*ve)))a$li+3*ve):next i 
print#1:print#1,chr$ (14) 
print#1,tab(4)"spiels-manager 
C2spaces](c) 1986 by andy”:print#1, 
chr$ (129) 

close 1:print "[3downlfertig !!”: 
goto 145 


(22) then 


3137 
3682 
2904 
2839 
3197 
2405 


1931 
10398 


18900 
783 
3918 


863 
25608 
3846 
3055 
2603 
2401 
2339 

276 
3256 
2451 

823 
2121 
1548 
1586 

423 
2893 
3529 
3098 
2861 
1832 
1501 

612 
2394 


2072 
3444 


2478 


1481 
3665 


1578 
3361 


1759 
4644 


1327 
s225 


3761 
140B 
4392 


2588 


1108 
1118 


11208 


1138 
1590 


1582 
1595 
1518 
15208 


1538 
1549 
1550 
1552 
1554 
1556 
1568 


1565 
1568 
1578 
1575 
1577 
1578 
1579 
1588 


1598 
1690 
1618 
1658 


2008 
20085 
22010 


2920 
2030 
2040 
2059 
2068 
2065 
2078 
20808 
2030 
2108 
2105 


2118 


2158 


2155 


2168 


2208 


2205 


2218 


2258 
2255 


2268 


ue$=d1$+d2$+d1$+d2$:sa=2:ve=int (Can/ 
sa)+l:goto 1058 

for i=-1 to ve:print#1,a$(i) tab(20- 
len (a$(i)))dsCi) tab(28-len 
(d$(i))); 


print#1,a$(i+ve) tab(28-len (a$li+ 
ve)))d$Ci+ve):next i 

goto 18398 

print "[Cclr,rvs,cbm 6) directory : 


Coff,down]” 

open 2,8,15,”i”:close 2 

open 1,8,2,”$,p,r” 

print ”"[rvs,wht]” tab(4);:t-1 

for i=-® to 141:get #1,a$:next :for 
i=-® to 24:get #1,a$:print a$;:next : 
c=13 

print ”Coff,cbm 6,down]”;: 

for i=® to 89:get #1,a$:next :print 
for x=-®d to 6 

if t/2=int (t/2) then t-23:goto 1556 
t=-3 

print tab(t);: 

for i=® to 15:get #1,a$:if a$-="G6” 
then goto 156598 

print a$;:next i 

for i=® to 15:get #1,a$:next i 

if t=23 then print 

next x 

if t/2=int (t/2) then t=23:goto 1579 
t-d 

print tab(t);: 

for i=-® to 15:get #1,a$:if a$-"G” 
then goto 1658 

print a$; :next 

for i=® to c:get #1,a$:next i 

print :goto 1558 

elosse 1:print tab(18)”[Cdown,rvs,wht, 
SspacesJendel4spaces,off,cbm 6]”: 
goto 145 
gosub 38 
sys B28 
xi1=-peek (53248)+256*peek (53264) :y1= 
peek (53249) :su=-®:goto 2929 

if y1>=71 then goto 2078 
if x1>26 and x1<94 then goto 2108 
if x1>94 and x1<166 then goto 2158 
if x1>166 and x1<214 then goto 2208 
if x1>292 and x1<333 then goto 2258 
if x1>214 and x1<292 then goto 2278 
if su=-® then goto 2005 
if su=-1 then goto 2328 
goto 2005 
gosub 38 
print "Chome,rvs,9spaces,off,down, 
Sleft,rvs] eingabe [off,down,3left, 
rvs,9spaces,off]” 
al$=-"spiel eintragen”:a2$="delete”: 
a3$5=-"disk aendern”:ta=1:goto 2399 
gosub 38 
print ”"Chome]” tab(S)"[rvs,9spaces, 
off,down,Sleft,rvs] ausgabe Loff, 
down, Sleft,rvs,Sspaces,off]” 
al$="spiele ausgeben” :a2$="drucken”: 
a3$-"diskinhalte”:ta=-4:goto 2398 
gosub 38 
print "Chome]” tab(18)"[rvs,6spaces, 
off,down,&left,rvs] disk [off ,douwn, 
Gleft,rvs,6spaces,off)” 
al$="spiele speichern” :a2$="spiele 

laden”:a3$="spiel laden”:ta=12:goto 
2308 
gosub 38:sys 383:poke 2040,11 
print "Chome]” tab(34)”"[rvs,5spaces, 
off,down,Sleft,rvs] end [Coff,doun, 
Sleft,rvs,5spaces,off]”:gosub 2598 
for i=-® to 508:next i:poke 53269,2: 
input "Chome,7down]sind sie sicher ” 
;siS 


August/87 UM 103 


4188 
4732 


3751 


631 
1962 


1564 
1389 
1068 
3678 


819 
1786 
308 
2588 
377 
628 
3314 


363 
1788 
1051 

306 
2453 

377 

628 
3314 


887 
1914 
705 
2088 


435 
663 
4999 


1831 
2312 
2558 
2815 
2659 
2635 
1265 
1268 

641 

435 
5358 


5515 
435 
5138 
5365 
435 
3802 


6455 


1802 
4011 


4559 


> 


22898 


2308 
2318 


2312 
2315 


2317 
2320 
2325 
2338 
2340 
2345 
2350 
2355 


2368 
2380 


2385 
2398 
2395 
25828 


2592 
26008 


2618 
2622 
2700 
2705 


2710 


2720 


2738 
2740 


2758 
28008 


2818 


2815 
2820 
2830 
2840 
2850 


if si$-"n"” then poke 53269,1:sys 

983:poke 2848,11:goto 2888 

print ”"Eclr)”:end 

gosub 38 

print ”Chome]” tab(24)"”[rvs, 

18spaces, off,down,12left,rvs] 
kommando [Loff,down,1ßleft,rvs, 

18spaces,off]” 

81$="”drucker-kommando” :32$5="disk- 

kommando” :33$="directory”:ta=28:goto 

2308 

gosub 2598:gosub 256988 

print "Chome,6down)” tab(ta)al$: 

print ”Cdown]” tab(ta)a2$:print ” 

Cdown])” tab(ta)a3$ 

print ”"C[down]” tab(ta)”"exit” 

poke 53269,1:sys 828:x1-psek 
(53248)+256*peek (53264):y1=peek 
(53249) 

su=1:goto 2028 

if x1tCta*B)+25 or x1>Cta*B8)+16B 

then goto 2315 

if y1<98 or y1>154 then goto 2315 
z=-int CCy1-98)3/8)+1 

if al$=-"spiel eintragen” then poke 

53269,d:goto 2388 

if al$="spiele ausgeben” then poks 

53269,9:goto 2385 

if al$="spiele speichern” then poke 

53269,0:goto 2398 

if al$S="”drucksr-kommando” then poks 

53269,8:goto 2395 

goto 2315 

on z goto 2800,2315,500,2315,800, 

2315,2588 

on z goto 100,2315,1000,2315,300, 

2315, 2588 

on z goto 300,2315,4900,2315,608, 

2315, 2588 

on z goto 7008,2315,750,2315,1500, 

2315, 2580 

poke 53269,1:sys 983:poke 2040,11: 

goto 29008 

return 

sys 983:print ”Chome,Sdown]” tablta- 
1)”OL18cbm yJP”:poks 2040,11 

for i=1 to 7:print tab(ta-1)”Cchm h, 

18spaces,cbm n]":next i 

print tab(ta-1)”L[18cbm p,shift @J”: 

return 

print "[down,2spacesJklicken sie das 
'ok’-feld an , wenn”:poke 53269,1 

print "[2spaces]sich die diskette im 
laufwerk be-”:print ”[2spaces) 

findet” 

print :print tab(15)”OC2cbm y]JP”: 

print tab(15)”Ccbm hlok[chm n)”: 

print tab(15)”"L[2chm p,shift 81” 

sys B28:x1-peek (53248)+256*pesk 
(53264):y1=-peek (53249) 

if x1<145 or x1>172 then goto 228 

print ”"[3up]” tab(15)”[rvs,4spaces, 

offJ”:print tab(15)”[rvs) ok [Loff)”: 

print tab(15)”[rvs,4spaces, off)” 

poke 53269,8: return 

print "[clr,rvs]spiel eintragen 
Cotr1 3,0ff]” 

print ”"[2down,rvs] a) [off] 
manuelles eintragen”:print ”[rvs] 
b) [off] eintragen per directory” 

print ”[rvs) c) [off] exit” 

get a$:if a$=-"” then goto 2820 

if a$="a” then goto 298 

if a$-=-"b” then goto 3088 

if a5=-"c” then goto 28 


goto 2828 

print "[clr,rvs) directory laden 
Loff]”:c=13: au-d: au-® 

for i=® to v:voS(i)="":next i:ba$=”"” 
:dis="" 

open 1,8B,15,"i”:close 1 

open 1,8,2,"$,p,r":for i=® to 141: 

get #1,a$:next 

for i=® to 24:get #1,8$:ba$-=ba$+a$: 

next :print "[Cdown,rvs)"ba$”[down)” 

for i=-1 to 12:if mid$ C(ba$,i,1)<> 

chr$ (160) then di$-di$+mid$ Cba$,i, 
1): 

next i 

v-d:for i=® to 83:get #1,a$:next 

for x="® to 6 

for i=-® to 15:get #1,a$:if a$=chr$ 
(168) then a$-="”" 

voS(v)=voS(Cv)+a$:next i 

for i=-® to 15:get #1,a$:next i 

if vo$Slv)=-"GG6GG6G6G66G66L5Lhhhhh* or 

voS(v)="” then goto 3208 

print vo$(v) tab(20)”jJ/n” 

get a$:if a$=""” then gota 3068 

if a$="j” then print tab(208)”[Lup, 
rvs]jLoff)”:jCv)=1:au=au+l:goto 39071 
print tab(22)”"Lup,rvsInLoff]”:JCv)=® 
v.v+1 

next x 

For i=® to 15:get #1,a$:if a$-=chr$ 
(168) then aS-""” 
voS(v)=voSlv)+a$:next i 

for i=-®d to c:get #1,a$:next i 

if vo$SCv)=-"GG6E6G66666G5LG5L5bhhhh* or 
voS$(v)=""” then goto 3208 

print vo$S(v) tab(208)”J/n” 

get a$:if a$-""” then goto 3098 

if a$=-"j"” then print tab(208)”Lup, 
rvsJjJLoff]”:jJCv)=-1:au=rau+l:goto 3101 
print tab(22)”Lup,rvsInloffJ"”:3j(v)=® 

vv+1 

goto 3049 

close 1:so=® 

print "[C3down,rvs) nun wird sortiert 
Coff,down]”:print "insgesamt: "au: 

print "sortiert: ” 

for a=® to v-1:if jCa)=1 then h$3= 

voS(a):gosub 3220 

next a:goto 3388 

print ”CupJ” tab(11)so+t1:so=so+t1:for 
i=-® to an:if h$<a$(i) then goto 32398 

next i 

for x=an to i step -1:a$(x+1)=-a$(x): 

dS(Cx+1)=dSCx):next x 

a$li)=-h$:dSCi)=-dis 

an=an+l:return 

print ”"[C2down,rvs) spiele sortiert 
Loff)]” 

goto 145 

For i=® to v:if JCi)=1 then au=aut+l: 

next i 

return 


82c0 18 data 3f,e0,00,3F,c0,00,3F,80, Sf 
02c8 20 data 00,3F,80,00,3F,c®0,00,3F, 82 
02d0 30 data e0,00,3b,Ff0,00,31,£8,08, F2 
0248 40 data 20,fc,00,08,78e,00,00,3Ff, 64 
O2e8 58 data 00,00,1e,08,00,0c,20,00, ı2 
O2eB 60 data 00,00,00,00,20,002,00,00, 08 
B2ro 78 data 00,00,00,00,020,00,00,00, 88 
B2rf8 80 data 00,00,00,00,00,00,00,00, 88 
0388 98 data Bb,e3,83,a4,7c,a5,1a,a7, d2 
0308 100 data e4,a7,86,ae,00,6f,0Ff,32, 84 
0310 118 data 4c,48,b2,00,31,ea,29,c®d, 66 
0318 120 data 47,fe,4a,f3,91,f2,8de,f2, 5d 
0322 138 data 50,f2,33,£3,57,f1,ca,fil, df 
0328 140 data ed,f6,3e,fı1,2f,f3,66,fe, ea 
0338 150 data a5,f4,ed,f5,00,00,00,008, aa 
0338 168 data 00,00,00,00,ae,800,dc,Ba, ff 
0349 178 data 29,01,F0,17,88,29,02,F8, 73 
0348 188 data 1f,83,29,04,f0,27,8a,29, e3 
0350 198 data 08,f0,48,834,29,10,Ff8,6c, 74 
0358 208 data 4c,3c,03,ce,81,d0,d0,05, 42 
08368 218 data a2,01,88,01,d8,4c,c5,03, 72 
0368 220 data ee,01,d0,d0,05,a2,Fff,Be, c® 
0370 230 data 281,d8,4c,c5,03,ad,18,d®, 58 
0378 240 data 29,01,d90,0d,ce,00,d0,d0, b7 
0380 2S5® data 05,82,01,8e,00,d0,4c,c5, 8F 
0388 260 data 083,ce,20,d0,d0,0a,a2,20, ce 
03998 278 data 8e,19,dd,a2,FfFf,Be,00,d0, “c 
0398 288 data “4c,c5,03,ad,10,d0,29,01, 47 
0338 290 data dß,15,ee,20,d0,d0,0d,a9, ®c 
03a8 302 data 002,ea,ea,sa,a9,01,8d,18, 3b 
03b® 318 data dd,ea,ea,ea,4c,c5,83,ee, 83 
03b8 320 data 89,d0,d0,05,a2,fe,8e,00, 2d 
83c8 338 data d®,4c,c5,03,60,32,00,a8, 63 
03cC8 3498 data 929,c8,d0,Fd,e8,e0,05,d0, 49 
03d® 358 data F8B,4c,3c,03,ea,ea,sa,ad, 2c 


Listing 2: Sprite-Daten und Maschinenroutinen. 


Hilfe - 
es brennt! 


WALTON MASTERS. MÜNCHEN 


Der wunde Punkt 
Kinder wissen sich oft nicht & wenigstens eine Notruf- 
helfen, wenn Lebensgefahr nummer auswendig können. 


Wer in unserem Land 
etwas für Kinder tut, 

tut das Beste für 
die Zukunft. 


droht und niemand in der 
Nähe ist. Wichtig: Ihr 
Kind sollte Sie immer 
erreichen oder 


Fragen Sie uns - wir helfen weiter. Helfen 
auch Sie mit - durch Ihre Spende: PSchAmt 


München, Kto-Nr. 440 809. u 


Deutsches Kinderhilfswerk e. V. 
Langwieder Hauptstr. 4, 
Das Deutsche Kinderhilfswerk e. V. dankt für die kostenlose Einschaltung dieser Anzeige. 


8000 München 60. 


. m |. # 


PraxisListing men 


03d8 360 data 24,a0,a0,86,ff,B4,Ffe,a®d, 57 
03ed 378 data 20,a9,20,91,Ffe,c8,dd,fb, F2 
0388 380 data eB,B6,Ff,e0,06,d0,f4,aS, 82 
83F® 398 data 0b,Bd,f8,27,ea,ea,ea,60, F8 
60008 For a= 704 to 1008 step 3907 
B:5"-Bd:c=®:for b=B to 7: 
gosub 699498 
60018 s=-s+h+l-c:c=s>255:s=-255-s 5834 
and 255:poke a+b,h+l:next 
b:gosub 60848 
60028 f$="pruefsumme ok”:if st> 5633 
h+l then F$="[rvs) 
pruefsummenfehler”:f=fF+1 
60038 gosub 60099:next a:print ” 2267 
CdownJ”f”fehler”:end 
60040 read h$:gosub 698959: h=1* 2715 
16:h$=midS Ch$,2) 
60058 l=-asc (Ch$+”x”)-4B:if 1<® 3198 
or 1>22 then 60088 
600698 if 1<18 then return 1944 
60078 1=-1-7:if 1>9 then return 1334 
60088 F$="[Lrvsleingabefehler”:1=- 2468 
O:f=-f+1 
60898 print ”zeile” peek (64)* 2726 


256+peek (63)Ff$:return 


saven des programms nach starten 
des loaders mit 


2 
3 


poke 43,192:poke “44, 
poke 45,248:poke +6, 
save ”"name”,B 


u EEE ME im Imms HEN Hmm Ama 


a ee -—— m ——m— DD. 
Autoren-Coupon 


Programmeinsendungen ist dieser Coupon ausgefüllt beizule- 
gen. Alle Beiträge nehmen am Wettbewerb „Superlisting" teil. 


Name: 
Vorname: 
Straße: 
Ort: 

Land 
Telefon: 
Geburtsdatum: 
Meine Einsendung ist für den: 

O0 C64 D 128 DC 16/116/Plus4 [U] Amiga 


Programmname: 
Inhalt der Sendung: 
DO Listing 


ı U Programmbeschreibung 


OD) Programmbeschreibung auf Diskette 
D Diskette 


ı DJ Kassette 


P} 


| DJ Sonstiges: 


OD) Hardwarebastelei 


! Ich bin damit einverstanden, daß die Rechte an meinem Pro- 
! gramm an den Verlag (CW-Publikationen) übergehen, sobald 


ME El TEE Mm EEE TE Am Hm Amin Hmm KEN 


der Verlag die Veröffentlichung zugesagt hat. Die Honorie- 
rung erfolgt nach Veröffentlichung entsprechend den verlags- 
üblichen Sätzen. Weiterhin bestätige ich mit meiner Unter- 
schrift, daß mein Programm frei von Rechten Dritter ist. 


Unterschrift: 


Bei Minderjährigen (unter 18 Jahren) bitte die Unterschrift 
eines Erziehungsberechtigten: 


Unterschrift: 


— 


System: C64/Floppy/Datasette 
Art: Anwender 
Sprache: Basic/Assembler 


David gegen Goliath — das ist keine 
Verklärung biblischer Vergangen- 
heit, sondern das Motto, unter dem 
das nachfolgende Programm ent- 
stand. Textprogramme, Dateiverwal- 
tungen und DFÜ-Programme gibt es 
für den C64 wie Sand am Meer — 
doch kein Programm vereinigt alle 
drei Programmarten. Das Multifunk- 
tionssystem „David 64" bietet alle die- 
se Eigenschaften in einem einzigen 
Programm von zirka 30 K Größe. 

Die Unterroutinen — Datenbank, Text- 
und DFÜ — befinden sich zu jeder Zeit 
im Speicher des C64 und können, 
ohne daß Programmteile von der Dis- 
kette nachgeladen werden müssen, 
über Menüs leicht und schnell ange- 
wählt werden. 


Problemloser 
Datentransport 
zwischen den drei 


een 


Ein wesentlicher Vorteil von „David 
64" ist, daß alle Daten, die von den 
drei Programmteilen erstellt wurden, 
untereinander kompatibel sind. Da- 
tenbankauswertungen können nun 
vor dem Ausdruck mit Hilfe der Text- 
routine manipuliert werden (zum Bei- 
spiel andere Sortierung). Briefe und 
Rechnungen werden mit ausgewähl- 
ten Daten aus der Datenbank automa- 
tisch gefüllt und ausgedruckt. Texte 
oder Auswertungen lassen sich mit ei- 
nem Akustikkoppler senden oder 
empfangen. 

Die Eingabesteuerung 

Grundsätzlich erfolgt die Kommunika- 
tion mit dem System über ein separa- 
tes Eingabefenster in der zweiten 
Hälfte des Bildschirmes. Jede Einga- 
be wird mit RETURN abgeschlossen. 
Fehlermeldungen 

Alle Fehlermeldungen erscheinen im 
Kommunikationsfenster. Diskettenfeh- 
ler werden im Originaltext angezeigt. 
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David gegen 


Goliath 


„David 64“ ist ein Mul- 
tifunktionssystem für 
den C'64, das Textver- 
arbeitung, Datenver- 


waltung und Daten- 
fernübertragung in ei- 
nem einzigen Pro- 
gramm bietet. 


Durch einen Tastendruck wird die 

Meldung gelöscht — erneute Einga- 

ben sind möglich. 

Peripheriegeräte 

Unterstützt werden folgende Geräte: 

— Floppy 1541 (Adresse 8) bezie- 
hungsweise kompatible Geräte 
zum Speichern der Daten 

— Datasette (Adresse 1) — unbedingt 
erforderlich 

— Drucker (Adresse 4/5) 

— Akustikkoppler (Adresse 2) 

Umlaute 

Aus Platzgründen mußte auf die Ein- 

bindung eines deutschen Zeichensat- 

zes verzichtet werden. Wenn der 

Drucker den deutschen Zeichensatz 

unterstützt, lassen sich Umlaute durch 

Eingabe folgender Ersatzwerte druk- 

ken: 

SHIFT +"l" =ß 

Klammeraffe = 8 

SHIFT + "—" =ü 


SHIFT + ""=Ü 
SHIFT+'"H-"=ä 
SHIFT + ";"=Ä 
CBM + "—"=Öö 


Pfundzeichen = Ö 
Die Datenbank 
370 TOR DEAN 


Die Datenbankroutine verfügt über ei- 
nen eigenen komfortablen und siche- 
ren Editor. Nach dem Aufruf der ver- 
schiedenen Hauptfunktionen wird das 
Datenbankmenü durch einen festge- 
legten Ein- und Ausgabebildschirm 
ersetzt. In der ersten Zeile erscheinen 
nun die zutreffenden Statusmeldun- 
gen. Zeile zwei ist für die aktuelle Da- 
tensatznummer, sowie die maximal 


mögliche Satzanzahl der Datenbank 
zuständig. 

Ab Zeile 3 bis 22 werden die Feldbe- 
zeichnungen angezeigt. Direkt hinter 
dem Feldnamen befinden sich die 
Eingabefelder für die Dateneingabe. 
Bei Verlassen eines Eingabefeldes 
oder beim Betätigen einer Funktions- 
taste werden die eingegebenen Da- 
ten im Rechner gespeichert. Disket- 
tenschreib- oder Lesefunktionen wer- 
den durch F8 beziehungsweise F7 
ausgelöst. Die Funktionstastenbele- 
gung kann jederzeit am unteren Bild- 
schirmrand abgelesen werden. 
Datenbank anlegen 

Hier wird die Größe der Datenbank 
(Anzahl der Sätze — maximal 4000), 
die Feldbeschreibungsdaten (Länge 
und Name des Feldes, Ordnungsbe- 
griff) und damit die zukünftige Einga- 
bemaske festgelegt. 


Neuzugang 
Zusätzliche Sätze werden in die Daten- 
bank aufgenommen. 


Auswertungen 

Bei diesem Menüpunkt erfolgt ein 
Ausdruck, eine Bildschirmausgabe 
oder die Speicherung ausgewählter 
Daten auf Kassette. Die Ausgabe auf 
Kassette dient zur Weiterbearbeitung 
mit der Textroutine. Jedes Feld kann 
als Auswahlkriterium verwendet wer- 
den. Mit den Zeichen "<'" und ">" 
kann die Ausgabe auf bestimmte 
Wertbereiche begrenzt werden. Ein 
“#" erzeugt ein Summenfeld am Ende 
der Liste. Ein “—“ (SHIFT + “*“)unter- 
drückt die Ausgabe des entsprechen- 
den Feldes. 

Diese Steuerzeichen können miteinan- 
der kombiniert werden. Zum Beispiel 
bewirkt die folgende Eingabe 
"# — > 6000" eine Ausgabe aller Sät- 
ze mit einem Betrag der größer als 
6000 ist, sowie eine Summenbildung 
(Einzelbeträge werden nicht ge- 
druckt). 

Suchen, Ändern, Löschen 

Bei der Eingabe von Suchbegriffen 
sind die Anzahl der ausgefüllten Fel- 
der sowie die Länge der Eingabe va- 
riabel (zum Beispiel Mei für Meier). 
Das Ausfüllen des Feldes mit dem 
Ordnungsbegriff (Feldname revers) 
beschleunigt den Suchvorgang er- 
heblich. 


Nun wird der erste Datensatz mit den 
zutreffenden Merkmalen herausge- 
sucht. Weitere Datensätze, die den 
Suchbegriffen entsprechen, können 
mit "?“ abgefragt werden. Das Ändern 
von Datensätzen erfolgt wie bei der 
Neueingabe. 

Gelöscht wird ein Datensatz mit der 
F2-Taste. 

Sichern der Datenbank 

Die gesamte Datenbank oder ausge- 
wählte Sätze werden hier auf eine Kas- 
settendatei geschrieben. Dabei wer- 
den nur die reinen Anwenderdaten — 
in der Reihenfolge der Speicherung 
ohne Indexdatei und Feldbeschrei- 
bung — gesichert. 

Laden der Datenbank (Import 7) 
Eine wie oben gesicherte Datei auf 
Kassette wird in die Datenbank gela- 
den. 


Die arbeing 


Dem Benutzer wird ein Arbeitsfeld in 

einer Breite von 80 Stellen und einer 

Länge von maximal 189 Zeilen zur 

Verfügung gestellt. Die aktuelle An- 

zeige ist immer ein Bildschirmfenster 

in der Größe von 40 Stellen und 21 Zei- 

len. Die Funktionstastenbelegung ist 

wiederum der Anzeige in der unteren 

Bildschirmhälfte zu entnehmen. 

Zeilenbefehle 

Im Text selbst sind folgende Kontroll- 

anweisungen zulässig: 

— d + RETURN = Löschen einer 
Zeile 

— i+ RETURN = Einfügen einer 
Zeile 

— r + RETURN = Verdoppeln einer 
Zeile ; 

— c + RETURN = Kopieren einer 
Zeile 

— m + RETURN = Verschieben 
einer Zeile 

Der Kopier- und Verschiebevorgang 

wird durch Eingabe von a + RETURN 

vor der Empfangszeile ausgelöst. 

Steu‘ 

Durch Einfügen von nn kann ein in der 

Parameterdatei gespeichertes Zei- 

chen beim Ausdruck an den Drucker 

übermittelt werden. Zum Beispiel: 

Dies ist $01 ein $02-Test. Ergebnis: 

Dies ist ein Test. 

Serienbriefe 

Wird #nn eingefügt, so werden Da- 

tenfelder aus einer Datenbank beim 

Ausdrucken automatisch in den Text 

integriert. 

Zunächst muß der Name der Textda- 

tei eingegeben werden, die den aus- 

zudruckenden Serientext enthält. 

Nach dem Laden des Textes wird der 

Name der Datenbank verlangt, die 
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die Einzeldaten enthält, die während 
des Druckens in den Text integriert 
werden sollen. Danach ist der Ablauf 
mit der Funktion „Auswertungen“ 
identisch. Bei jedem gefundenen Satz 
erfolgt ein Ausdruck des Textes, wo- 
bei die mit "nn" markierten Textstel- 
len automatisch mit den entsprechen- 
den Feldinhalten der Datenbank ge- 
füllt werden. nn entspricht der Feld- 
nummer eines Datensatzes. Wenn 
zum Beispiel im Text steht 


#03 
und in der Datenbank 
Name: Meier 
Vorname: Karl 
Ort: 6500 Hausen 
Straße: Baumweg 1 
Anrede: Herr 
erfolgt dieser Ausdruck: 
An 
Karl Meier 
Baumweg | 
6500 Hausen 
Suchen und Ändern 
Hier wird zunächst ein Begriff abge- 
fragt, der im Text gesucht werden 
soll, anschließend der Begriff der den 
alten ersetzt. Die gefundenen Zeilen 
werden einzeln angezeigt, die Funk- 
tion kann durch die Taste "c" abge- 
brochen werden, alle anderen Tasten 
führen die Aktion weiter. 
Laden und Speichern von Texten 
Die Texte können wahlweise auf Dis- 
kette oder Kassette abgespeichert 
werden. 
Festlegung von Druckerparametern 
Durch die Funktion (6) im Textmenü 
wird eine Parameterdatei auf Diskette 
angelegt. Diese Datei wird beim Star- 
ten des Programms automatisch gela- 
den. 
Alpgefragt werden: 
— Druckeradresse (4) 
— Sekundäradresse (7) 
— Sekundäradresse für 

Grafikdruck (0) 
Danach wird die Anzahl der zu defi- 
nierenden Druckerparameter ($nn im 
Text) festgelegt (siehe auch „Steuer- 
zeichen“). Pro Parameter werden nun 
die Einzelwerte abgefragt. Die spe- 
ziellen Werte der Steuerzeichen sind 
dem Handbuch des jeweiligen Druk- 
kers zu entnehmen. 
Speicherformat 
Die Bildschirmzeilen werden in Form 
von Variablen gespeichert. Um eine 
Gesamtzeile von 80 Zeichen zu spei- 
chern, werden zwei Zeichenketten zu 
je 40 Stellen benutzt. Jede sequentielle 
Datei kann mit der Textfunktion einge- 
lesen werden. Voraussetzung ist aller- 


dings, daß die Satzlänge der zu lesen- 
den Datei nicht 80 Zeichen über- 
schreiten darf. 

Die Textroutine konvertiert eingelese- 
ne Fremdfiless beim Abspeichern 
automatisch in das „David 64"-Format. 


Datenfern Bann 


a) Dialog 

Wird diese Funktion angewählt, so 
muß zunächst eine Verbindung herge- 
stellt werden. Die Ausgabe empfan- 
gener Daten erfolgt auf dem gesam- 
ten Bildschirm. Das Format der Bild- 
schirmausgabe wird durch die ange- 
wählte Mailbox bestimmt. Zur Steue- 
rung der Ausgabe werden folgende 
Tasten verwendet: 

— CTRL +S = Ausgabe stoppen 

— CTRL +0 = Ausgabe fortsetzen 
— CTRL+X = Abbruch 

Dies sind Standardwerte die im Ein- 
zelfall jedoch anders geregelt sein 
können. Mit Hilfe der Funktionstasten 
kann man vorher gespeicherte Werte 
senden (zum Beispiel Passwort und so 
weiter). 

b) Text senden 

Mit der Funktion 2 des DFÜ-Menüs 
können komplette Textdateien gesen- 
det werden. Hierzu ist nur der Name 
der Datei einzugeben, die Übertra- 
gung erfolgt automatisch. 

c) Dialog mit Speicherung auf Dis- 
kette 

Nach dem Festlegen des Namens der 
Textdatei, unter der der Dialog ge- 
speichert werden soll, erfolgt die Si- 
cherung automatisch, ohne daß der 
Dialog beeinträchtigt wird. 

d) Dialog mit Sofortausdruck 

Ein Ausdruck findet immer nach dem 
Empfang von 256 Zeichen statt. 
DFU-Parameter 

Hier lassen sich alle Standardwerte 
für die Übertragung einstellen. 
Funktionstastenbelegung 

Während des Dialogs können vorbe- 
reitete Daten (jeweils maximal 38 Stel- 
len) durch Drücken einer Funktionsta- 
ste gesendet werden. Durch Auswahl 
der Funktion 6 im DFÜ-Menü lassen 
sich die Tasten belegen. Die Informa- 
tionen werden auf der Programmdis- 
kette gespeichert. 

Abtipphinweise 

Listing 1 ist das Ladeprogramm von 
„David 64“. Listing 2 beinhaltet das 
Hauptprogramm. Die Programme 
sind vor dem Starten abzuspeichern. 
Zum Starten von „David 64“ wird zu- 
erst das Ladeprogramm geladen und 


RUN eingegeben. 
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i rem >>>dieses programm laed das ha 
uptprogramm<<< 

108 rem WERDET EEE RER 
.. 


20 rem * multifunktionssystem 
308 2 ” david 64 
40 an ” ladeprogramm 
50 ae * autoren: hans-juergen und 
60 ie ” dennis pauler 
70 Pr \ 

“ 
88 rem * 6507 ingelheim 
30 BE * Fuer c64/c128 + 1541 


* 
95 rem -.—€.-—-..:. seen 
.. 
118 poke 53272,21:poke 198,® 
128 rem version 2.53 david64.lader 
130 rem He 


135 rem *index-suchroutine 529569-530390* 

139 rem EREEEEETTETEREETEREETEREREE 

140 data 169,54,133,1,1690,0,177,254,56, 
233,0,240,97,24,177 


150 data 254,56,229,250,240,16,165,254, 
24,105,3 

160 data 133,254,165,255,105,0,133,2s5, 
76,230, 206 

170 data 165,254,24,105,1,133,254,165, 
255,105,8 

180 data 133,255,177,254,56,229,251,240, 
16,165, 254 

190 data 24,105,2,133,254,165,255,105,0, 
133,255 

200 data 76,230,206,165,254,24,105,1, 
133,254, 165 

210 data 255,105,0,133,255,177,254,56, 
229, 252,208 

220 data 22,169,0,133,253, 165, 254,24, 
105,1,133 

230 data 254,165,255,105,0,133,255,168, 
55,133,1,36 


240 data 165,254,24,105,1,133 
250 data 254,165,255,105,0,133,255,76, 
230,206 


255 rem Hemnmmunnnnnnnnnenununnnenunnnn 


268 rem indexdatei einlesen 53091-53137 
265 rem ur 
270 data 160,008 

288 data 162,03 

298 data 32,198,255 

309 data 32,207,255 

318 data 201,13 

320 data 240,244 

330 data 201,199 

340 data 240,18 

350 data 145,250 

369 data 165,250 

370 data 24 

388 data 105,01 

398 data 133,250 

400 data 165,251 

418 data 105,00 

420 data 133,251 

438 data 76,101,207 


440 data S6 
Y45 rem #Hrunnnnnnunnsnnunnnnnsnnnnannnn 


450 rem * dialogsicherung 53128-531556 * 

455 rem MresnennRsR°zR°zR;°;°s;°«;°;; 

468 data 162,8,32,201,255,160,0,162,0, 
189,32,193,32,210,255,201,13,208,3 
32,218 

478 data 255,232,200,192,255,208,237,96 


472 ram Henuuunnnunnununnun nun nennen 
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473 rem * dialogroutine 519888-S51142 ” 

474 rem „m „ „nm... nn... .n.....n.n..n..n.. 

480 data 32,204,255,162,22,32,198,255, 
32,228,255,201,0,240,64,170,189,0, 
192 

430 data 32,210,255,164,251,153,32,193, 
200,132,251,192,255,208,45,160,0, 
132,251 

500 data 32,204,255,162,22,32,201,255, 
169,19,32,210,255,32,210,255,32,210, 
855 

510 data 32,210,255,32,204,255,32,136, 
a a re ae zog at 
25 

520 data 76,56,199,32,204,255,162,22,32, 
201,255,32,228, 255, 201, ®, 240, is2, zei 

530 data 95, 240, 42,201,133, 240, 38, 2ei, 
134,249,34, 2e1. 135,240,30, 201, 136, 
240,26 

540 data 201,137,249,22,201,138,240,18, 
201,139, 2uD, 14, 201, 140, 24D, 10, 170, 
189,0 

558 data 192,32,210,255,76,56,199,133, 
252,96 

s55 rem EZ ZZ ZZ ZZ zz ee Tee 

S6® rem *taschenrechner 53157-53212 “ 

565 rem m. — nn... | 

570 data 169,67,1690,6,133,95,132,96,169, 
211,160,7 ‚133, so, 132, 51, i63, 176. 169 

5808 data 204, 133, 88, 132, 83, 3, 191, 163, 
u =, 160, 203, 133, 55, 132, S6, 168, 
1 

530 data 160,204,133,90,132,91,169,211, 
160,7, 133, 88,132,89,32, is1, 163,896 

595 rem ee ehr Dat here 

608 rem * datas fuer titelbild “ 

605 rem Henne 

610 data 32,96,32,96,96,96,396,96,0,73, 
Bey, Bey, 224, 223, FR 5 233 

620 data 223, ®, 3; 223,0 2,233,0,3,223,0, 
2,160, 168, 168, 223,0 

6308 data 3 3,233, 224, 224, 223,32,233,382, 
223,0, 2, 168, o, 2, 160, o, 3 

6498 data 233, 8, 8; 223, e,2 2,224 ‚80,2,224,0, 
3,160,0,2,160,0 

650 data 2,160,0,3,160,9,4,160,32,224,0, 
2,160,0,2,160,8 

660 data 3,160,0,2,160,0,2,224,0,2,224, 
A 

670 data 0,2,160,0,3,160,0,4,160,32,224, 
0,2, 168,0 0,2,168 

680 data 0,3,160,0,2, 160,0,2,224,0,2, 
224,0,3,160,0,2 

630 data 160,0,2,160,0,3,160,0,4,160,32, 
224,0,2, 160,8 

708 data is ‚2,3,160,0,2,1690,0,2,224,0, 
2,224,0, 3, 160,0 

710 data 2, 160, 0,2,160,0,3,160,1690,160, 
223,32,95, 16 ‚160, iso, 32 

720 data 160,0, 2,160, 8,3,160,160,160, 
160,0,2,224,0,2,224,0 


Af 


730 data 3,160,0,2,1690,0,2,160,0,3,160, 
02 168, ®, 3, 160 

749 data ®, 2, 160, 0,2,160,0,3,160,0,2, 
160,0, 2, ss, 8,2 

758 data 185, 0,3,160,0,2,160,0,2,160,0, 
3,160,0, B, 160, o 

768 data 3, 168, ®, e 169,160,160,105,0,3, 
160,0, 2, 168,0 3, 95 

770 data 105, ®, 4, 168, 0,2,160,168,160, 
105,0,3, Ss, 168, 168, 105, o 

788 data 3, 35, ®, 205, 240, 132, 192,192,182, 
192, 132, 132, 192,192,192,192,192 

790 data 182, 182, 132, 132, 132, 132, 192, 
ee 132, is2, 132, 132, is2, is2, is2, ise, 

809 data 192,192,238,0,7,221,132,160, 
129,160, 147, 168, 168, 160, 168, 160, 1650 

810 data 141, 148, 140, 148, 137, 134, 149, 


7162 


62390 


6777 


67396 
7133 


7054 


4284 


7492 
7777 


6705 


5804 
5347 
5595 
4577 
4979 
3782 
4614 
4920 
4805 
4681 
539008 
5351 


36490 
4656 
4661 
4913 
5274 
5576 
7492 


7340 
7717 


142,139,148,137,143,142,147,147,153, 
147 

data 148,133,141,221,0,7,237,192, 
192,192,192,192,192,192,192,192,192 
data 192,192,192,192,192,192,192, 
192,192,192,192,192,192,192,192,192, 
192 

data 192,192,192,192,253,0,132,999 


rem WETTER EEE 


rem *einlesen und poken der datas * 
rem BEREITETE 
poke 646,6:poke 53281,1:poke 53280,1 
print "Cclr,7downldurch druscken 
einer taste wird das[5spacss) 
titelbild gestoppt” 

gosub 889:goto 338 

rem 

restore :for i-52968 to 53127:read 
a:poke i,a:next i:rem index such+les 

sroutine 

for i=-53128 to 53156:read a:poke i, 

a:next i:rem dialog-sicherungsroutin 

e 

for i=S51008 to S1142:read a:poke i, 

a:next :rem dialogroutine 

for i=53157 to 53212:read a:poke i, 

a:next :return :rem taschenrechner 

rem 

print "[clr]”; :p=1024+16® 

si-54272:poke si1,208:poke si+1,55: 

poke si+5,2:poke si+6,15:poke si+24, 
15:rem sou 

poke si+4,129 

poke si+11,16 

poke si+18,16 

poke si+4,16 

read a:if a=9399 then 1060 

get c$:if c$="" then 1028 

goto 1128 
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138 
148 


158 
1608 


rem >>>>> achtung!!! programm nur d 
urch ladeprogramm laden <er< 
rem >>>>Cload”davidß4*”",8) ,„ da sons 
t nur beschraenkt lauffashigt<<< 


rem PETE Teer ET NN SS 2 zZ ZZ 22 2 2 2 2 2 202 02 
nie u multifunktionssystem 
ie ® U:8. v5 :4. 88 
com ” hauptprogramm 
rem * autoren: hans-juergen und 
con ” dennis pauler 
rem * 

. 
rem * 6507 ingelheim 
Ei De Fuer c64/c12B + 1541 
2 .—_—;_;srRrRsnszr°szn;°sn;°n;“*°=«.:..sr0 


. 

rem @s1924 

poke 53272,21:poke 198,8 

rem version 2.53 haupt .david64 
rem datenverwaltung mit indizierten 
dateien 

rem -- u = 


poke 53272,23:rem gross/kleinschreib 
ung 


7636 
7402 


3373 


3032 
se4u2 
19897 
2619 


3111 


2632 
3ı21 


1554 
5243 


797 
713 
682 
742 
1495 
1516 
563 


1412 


394 


1928 


1030 
1940 
1050 
1068 
1070 


1088 


1038 
1032 
1095 


10939 
1100 


1118 


1128 


1122 
1125 
1127 
1138 
1135 
1136 
1140 


1158 


178 
175 
180 


198 


210 


220 
238 


240 
258 
2608 
270 
288 


230. 


308 


poke si+4,128:ifF a<>® then poke p,a: 
p"p+l:poke si+4,129:poke si+l,a:goto 

938 

read a 

rem titelbild 

p"pta:goto 9998 

print ”Chome, 17down, blu, 3right]von 
hans-juergen[2spacssJund dennis 
pauler[7spaces)”; 

poke si+6,255:poke si+1,10:poke si, 

22:poke si+4,17 

poke si+13,255:poke si+8,20:poke si+ 

7,05:poke si+11,17 


poke si+20,255::poke si+15,30:poke 
si+14,28:poke si+18,17 


rem EREREEETTBEBTTTRTETETBTTTTUUUUN 


rem *einlesen der drucker-adressen 
rem SEREEREREBBETTITTURTTTEREUUE 
da%=4:gk%=7:poke 53245, da%:poke 
53246 ,gk%:poke 53247 ,gg9%:gosub 111®: 
goto 1138 

open 8,8,8,"drpara”:open 15,8,15: 
input#15,f:if F<>® then close B: 
close 15:return 
input#8,da%,gk%,9g%:poke 53245, da%: 
poke 53246,gk%:poke 53247 ,99%: close 
8 


rem VERERERTERERETERTERTTTRIUUEN U 


rem * laden des hauptprogramms * 
rem EEEEETTTTTTETTTETT ET 
a5="p-haupt .david64+” 

rem * haupt .david64=basic-version 
rem *p-haupt .david64=compilierte 
print "Cwht,homse, 2down)Jload” chr$ 
(34)a$ chr$ (34) chr$ (44) chr$ 
(56) chr$ (13)"C4down)runChome)”; 
poke 631,13:poke 632,13:poke 198,2 


clr :poke 788,52:poke 2024,08 
open 15,8,15,”i®”:close 15 
close 22:open 22,2,8,chr$ (38)+chr$ 
(33) 
c$=-"Lup]”+chr$ (13): dv=9:da%=peek 
(53245) :gk%=peek (53246) :99%"psek 
(53247) 
si-54272:poke si,208:poke si+1,55: 
poke si+5,2:poke si+6,15:poke si+24, 
15:rem sound 
poke si+4,16:poke si+11,8:poke si+ 
18,9:q1-® 
poke 53280,1 
Fe$-"[Cred,rvs]Status: OK[29spaces, 
off)”:frS=-feS 
poke 53281,1:print "[Cblu,clir)”;:poke 
204,1:poke 198,0:t35=-"":q9-1 
print ”[rvs,cbm a,38shift *,cbm s)”; 
print ”"[rvs,shift -] 1 :Erklaerung 
[S5spaces]2 :Neus DB anlegen 

[shift -)”; 
print ”"C[Crvs,shift -] 3 :Neuzugang 
[6spaces)]4 :Auswertungen[Hspaces, 
shift -)”; 
print "[rvs,shift -]1 5 : 
Suchen/Aendern 6 :DB sichern 
[6spaces,shift -I3"; 
print ”"C[rvs,shift -]3 7 :DB laden 
C7spaces]8 :DB losschen[Sspaces, 
shift -)”; 
print "[rvs,shift -] 3 :Textprogramm 
[3spaces]a :Serienbriefel"spaces, 
shift -]”; 
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5436 
865 
823 

5569 

3243 


4501 


39639 


6376 


5406 


1965 


4463 


3072 


1415 
1688 
2387 


6398 


s243 


2857 


906 
3853 


4544 


3349 


4183 


3874 


3843 


3558 


3695 


>» 


PraxisListing mn 


310 


320 


338 


340 
350 


368 
378 
388 


398 
408 


418 
420 
430 


440 
450 


460 
470 


480 
498 
599 
5198 
520 
5308 
549 
55® 


S55 
562 
565 
570 


589 
538 


6008 
6108 


620 
6308 


640 
658 
6608 
665 
670 
675 
6808 


699 
7908 
710 


720 


730 


748 
758 
768 
770 


print "[rvs,shift -] b :Directory 
[(6spaces]c :Disk-Befehlel4spaces, 
shift -)”; 

print "C[rvs,shift -Id: 
TerminalCDFUE) « :Ende[l2spaces, 
shift -]”; 

print "[rvs,chbm z,38shift *,cbm x, 
off ,Sdown]”:gosub 3498:goto 399 

print "C[cbm a,38shift *,cbm s]"; 
print "[shift -]” spc(38)"[shift -I” 
print ”"[shift -]” spc(38)”[shift -I"” 
print 
gosub 1358 

print "Bitte Kennzeichen eingeben 
Cblul”:return 

get t$:if t$=""” then 
poke si+4,17:Ffor i=1 
poke si+4,16 

if t$="1” then gosub 3898:goto 249 
if t$="2” then gosub 6208:goto 688 
if t5="3” then gosub 620:wi$="a": 
goto 1418 

if t$="y” then 
goto 3638 

if t5="5” then 
’r’:goto 1418 
if t$="6”" then 
if t$="7” then 
goto 3808 
if t$="B” 
if tS="9g» 
if t$=-"a” 
if tS="p" 
if tS="c” 


”Ccbm z,38shift *,cbm x]J”: 


398 
to 208:next i: 


gosub 628:wi$="r": 


gosub 629:kz=-5:wiS- 
6229: 


620: 


gosub 
gosub 


goto 3849 
wig=-"a”: 


then 
then 
then 


gosub 620: 
goto 4428 
goto 7728 
then goto 7978 
then goto 8178 
if t$="d” then goto 8280 
if t$="«-" then q9=-®:sys 65126:end 
gosub 1358:print "C9spaces) 
Ungueltige Taste”:goto 3998 

rem Ye 


rem datenbank losschen 

rem Wan 

gosub 1350:print "Bitte Dateinamen 
eingeben”:print "[right,red)”;: 

gosub 8180: n$=bf$ 

n2$=n$:if len (n$)>&6 then n?$=lefts 
(n$,6) 

gosub 1350:print "DB losschen 
[Sspaces] (J/n)”:print "Cright,red]”; 
:gosub 8180:t$=bf$:t$=left$ (t$,1) 
if t$<>”j” then 4940 

open 1,8,15,"s: "+n2$+”*":close 1: 

goto 4940 

if dk=® then gosub 1350:print "Bitte 
Datendiskette einlegen” 

if dk=® then dk=1:print "CrightlJund 
eine Taste druecken”:goto 658 

return 

wait 198,1:poke 198,8 

gosub 1358: print "[2spaces)”:return 

rem Ye 


rem datenbank anlegen 

rem EZ EZ U ZZ Tr 

gosub 1358:print "Ist Diskette schon 
Formatiert?(J/n)” 

get t$:if t$=""” then 690 

if t$=")" then ld=9:goto 8398 

gosub 1350:print "Bitte 
Diskettennamen eingeben”:print ” 
Cright,red]”;:gosub 8189:n$=bf$ 
gosub 1358:print "Bitte 
Diskettennummer eingeben”:print ” 
[Cright,red]”; :gosub 8188:nr$=bfs 
gosub 1358: print "[rvsJWartezeit:8B0 
Sek. Disk wird Formatiert" 


goto 578 


n$=leftS (n$,10) 

nr$=left$ (nr$,2) 

open 1,8,15, "n: ”+n$+”, "+nr$:close 1 
gosub 1358:print "Diskette [rvs]” 
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3664 


3603 


5184 


3279 
1301 


1301 
3949 
3259 


1668 
3163 


2032 
2058 
2885 


3116 
3333 


2349 
3ı42 


2058 
1617 
1636 
1716 
1718 
1762 
2993 
2847 


sı72 


3184 
6432 
1493 
3243 
4673 
4754 

142 


1729 
1478 


4562 


1692 
2024 
ss42 


6308 


4942 


1093 
1265 
2802 
4952 


775 
788 
785 
738 


809 
8108 
822 
838 
840 


850 


868 
878 


318 
920 


339 
940 
350 


978 
980 
930 


1000 
1018 


19029 
1039 


19040 
1050 
1068 
19070 


1080 
1890 
1108 


.111® 


1120 
1130 
1148 
1158 
1168 


1170 


1180 


1198 
1208 
1218 
1220 
12308 


1248 
1258 


12608 
1270 
1289 


n$”,”"nr$”Coff] ist Formatiert”:1d-®: 
goto B38 
rem 


rem disk Fehlerroutine 

rem 
input#15,x,x8,4,z:if x<28 then 

return 

print "[rvsJFehler :L[offJ”;x;x$;u4;z 

close 3:close 8:close 15 

wait 198,1:poke 198,8:goto 4949 

open 15,8,15,”i®”:close 15 

gosub 1358:print "Bitte Dateinamen 
eingeben”:print ”"C[right,red]”;: 

gosub B188:n$=bf$ 

n2$=n$:if len (n5)>6 then n2$=lefts 
(n$,6) 

gosub 1359 

print "Bitte max, Satzanzahl angeben 
1-49888”:print "Cright,red}”; :gosub 

8188: n1$=bf$ 

n=val (n1$):nr=n:if n>4908 then 8608 

hb=int (n/256):1b=n-hb*256 

£=-0:dim Fm$(29): Fb$=-"[C4down]”:dim 

nf(28):a0-® 

£f=-f+l:gosub 1359:if F>2@ then 1130 

print ”Bitte Feldnamen oder ende 
eingeben”:print ”"[right,red)”;: 

gosub B180:fm$(f)-bf$ 

if left$ (fmS(Cf),4)=-"ende” then 1139 
Em$Ctf)-left$ (FmS(f),10) 

Fb$-fb$+” ”+fmSCf):gosub 1399: print 
fb$, 

gosub 1358:print "Max. Feldlasnge”: 
print ”[Cright,red]”; :gosub 8189: Fl$- 
bf$:nf(f)=val (CFf1$) 

if nftf)>28 or nfCf)=® then 960 
El%=-fl%+nfcE) 

if Fl%>254 then gosub 1358: print 
"max ‚Satzlaenge(254)erreicht”:goto 
1138 

if ao>® then t$=” ”:goto 1920 
gosub 1358:print "Drdnungsbegriff 
(J/n)”:print "L[right,red}”; :gosub 
8189: t$=bf$:t$-left$ (t$,1) 
ld=-1d+nfcf)+2 

if Cld*n)+C3*n)>1690000 then gosub 
13598:print "Disk zu klein"”:wait 198, 
l:goto 878 

if t$<>”j"” then 919 

ao"ao#l: 
EmSct£f)=-"CrvsI”+£mSce)+"loff]” 
F2$-fm$(f):if len (f2$)>6 then F2S- 
left$ (f2$,6) 

open 8,8,1,n2$+” ,1,"+F28+",s,w” 
open 15,8,15:gosub 7398 

close 8:close 15 

open 15,8,15,”"i®”:close 15 

goto 318 

open 2,8,2,n2$+” .‚Ffeldbe,s,w”:f=f-1 
print#2,8;chr$ (13); 
print#2,nr;chr$ (13); 
print#2,f;chr$ (13);:for i=1 to f: 
print#2,FmSCi);chr$ (13);nfCi);chr$ 
(13); 

next i:close 2:x=C(n*1d)/275)+4: 
gosub 13598 


print "Wartezeit in Sekunden: ” int 
(x) 

if ld=-42 then 1ld=43 

hb=2:1b=208 

if nt721 then nn=n:goto 12808 

for nx=® to int (n/7290)-1 

open B,8,1,n2$+str$ (nx)+”,1,”+chr$ 
(1d) 

open 15,8,15:gosub 798 
print#15,”p”+chr$ (1)+chr$ (1b)+chr$ 
Chb)+chr$ (1):print#8,chr$ (255); 
close 8:close 15:next nx 

nn=n-C int (n/729)*720) 

hb=int (nn/256) :1b=nn-hb*256 


2388 


2315 

946 
2268 
1688 
5172 


3184 


615 
5504 


2628 
2B22 
3651 


e214 
5372 


2212 
1843 
ey44 


573998 


1943 
1488 
s259 


1686 
6848 


1311 
5390 


1472 

863 
1898 
3224 


2363 
1569 

634 
1688 

576 
3204 
1515 
1475 
5671 


3209 


2893 


1395 
1454 
1882 
1771 
3206 


1569 
4514 


1155 
1352 
3256 


Praxisliseung 


1230 


1308 
1318 


1320 
1338 
1340 


1358 
1368 
1378 
1388 
1390 
1395 
14028 


1405 
1410 


1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 


1550 


15698 
15708 


1588 
1590 


1608 


1610 


1620 
1638 
1640 
1650 
1668 


1670 
1689 


1638 
1695 
17908 
1785 
1718 
1720 


open 8,8,1,n2$+str$5 (nx)+”,1,”+chr$ 
(1d) 

open 15,8,15:gosub 738 
print#15,”p”+chr$ (1)+chr$ (1lb)+chr$ 
Chb)+chr$ (1):print#B,chr$ (255); 

close 8:close 15 

open 15,8,15,"i®”:close 15 

gosub 1358:print "Datenbank 
engelsgt”:wait 198,1:run 18 

poks si+4,17:poke 214,28:poke 211,2: 
sys 58732 

print ”"C[Cright, 38spaces)” 

print ”Cright ,38spacss)”; 

poke 214,28:poke 211,1:sys 58732: 
print "Cgrn)”; :return 

poke 214,6:poke 211,1:sys 58732: 
print ”Cblk)”;:poke si+4,16:return 
rem m... 


rem maskenaufbau 

rem m... ....... 

gosub 1358:poke 188,8:print "Bitte 
Dateinamen eingeben”:print ”[right, 

red)”; :gosub 8188:n$=bf$ 

nx=® 

n2$=n$:if len (n2$)>6 then n2$-left$ 
(n2$8,6) 

if sl=-2 then gosub 135®8:open 1,1,1, 
n2$+"”.s”:gosub 6975 

if c5=® then open 15,8,15,”"i®”":close 
15 

open 2,8,2,n2$+” ,feldbe,s,r” 

if c5-® then open 15,8,15 

zk=-3:gosub 798 

input#2,ho,ma,mf 

dim Fm$(20),nf(20),F2$(20),fw$S(20, 

3), su(C202),sm(20) 

for i=1 to mf:input#2,fm$Ci),nf(i): 

f2SCi)-Fm$Ci) 

if len (f2$Ci))>6 then F2$Ci)-lefts 

(f2$(i),6) 

next i:close 2:poke 788,52:Ffor i=1 

to mf 

if left$ (fm$(i),1)=-"[rvs]” then 

open zk,8,zk,n2$+” .i."+F2$li)+”,s,”+ 

wis: zk=zk+1 

gosub 798:next :open B,8,8,n2$+str$ 
(nx):gosub 798:if sa-1 then gosub 

3748 

if kz=5 then gosub 3120:i1=® 

print ”"Colr)”;:if sa=1 and tb$="d” 

then print#4,chr$ (13) 

poke 53272,23:rem gross/kleinschrift 

if wi$=-"a” then il=ho+tl:if ho+ti>ma 

then 3488 

st$=-"[red,rvs]Satznummer:: "+str$ 
Cil)+” max:”+strS$ (Cma)+” hi:”+str$ 
Cho)+"C3spaces, off)” 


For i-1 to 42-len (st$):st$=-sts+” 

Crvs) ":next i:if dv=3 then 1869 

print Fe$:print stS 

for i=-1 to mf 

print ”"[Cgrn)"”;fm$(i); 

print chr5 (13); :next 

For i=-1 to 29-mf:print "[down)”;: 

next 

print "[rvs,redJFi[Cblu] Hilfe [red] 
F2Cblu] Lose [CredIF3Cblu] Rech [red] 
F4Cblu] Rueck [redJFS5SCblu] Vor” 

print "C[rvs,redIJF6Cblu) Druck [red] 

F7Cblu] Lesen [Cred)F8Cblu) Schreib 
Cred)+[Cblu) Endel4spaces,off,grn)"” 

print ”"Chome)”; 

rem Heraus unn00000% 

rem eingaberoutine 

rem ##ssonn00snu0» 

ens="":print fFe$:print st$:fe$-fr$ 
poke si+4,65:poke si+2,255:poke si+ 

5,9:poke si+6,8:poke si+t24,15:rem so 
und 


N ER 


3206 


1569 
4514 


694 
1688 
3648 
3185 
1488 
1724 
3488 


4795 


5987 

585 
3179 
4084 
2578 
2465 
ı911 
1344 
1317 
35908 
3817 
3383 
2518 


5780 
4764 
2054 


2978 


394 
3308 


s428 


4694 

851 
1002 
1405 
19046 
2060 


5379 
4903 


493 


2486 
4849 


1738 


1748 
1758 
1768 


1778 
1788 
1798 


1898 
1818 
18208 
1838 


18590 


1860 
1878 


18808 
1898 


1908 
1928 
1930 
1940 
19598 
19698 
1979 
19808 
1998 
20008 
2085 
2018 
R@O1S 
20208 
2038 


2040 
2050 


20608 
2078 


20808 
29308 
2108 
2118 
2120 
BieS 


2130 


2140 
2158 
2160 
2178 


21808 
2198 


22008 
2210 
2220 


u ' 


for i3=1 to mf:print spc(11)"[red)]”; 
:if sl=1 then 3818 

poke 158,08 

gosub 4068 

if left$ (fw$(i3,0),1)=-"#” then ty= 
1:goto 3468 

if left$ (fw$(i3,90),1)-"[shift *)]” 
then ty*2:goto 3468 

if leftS (fwScCi3,90),1)-">”" then ty= 
4:goto 34568 

if leftS (fw$(i3,0),1)="<” then ty= 
8:goto 34568 

if en$<>"” then 1850 

next i3 

if sl=-1 then 1878 

if en$=""” then print "Chome, 2down]”; 
:goto 1738 

if tb$="b"” then tb$=" ”":open 4,3:dv= 
3 

if sl=-2 or sa=1 then 2350 

print ”"Chome)”;:For i6-1 to 24:print 
"Cdown)”;:next :print ”"[29spaces)”; 
if en$5="s” then il=-il+1:if il=>ho+1 
then il=1 

if en$="r" then il=il-1:if il<1 then 
il=-ho 

if en$="s” then 2620 

if en$="r” then 2620 

if en$=-"d” then 3530 

if en$="h” then gosub 3898:goto 1578 
if en$="u” and fw$(1,8)="” then 1698 
if en$="u” then en$="” ":goto 2028 

if en$="l” then en$="” ”:goto 3620 

if en$="«" then goto 22408 

if tb$="b” then tb$="” ":open 4,3 

if kz=-5 then 2358 

rem Ytsssnnnse22u9 90008 


rem disk schreibroutine 

rem #Hr#n2n222n2n02000% 

for i=1 to 5:fs$li)="":next 

if kz<>5 then ho=-ho+l1:if ho>ma then 
goto 3488 

if kz=-5 then ix=il-CC int (i1/720))* 
7280):hb=int (ix/256):1b=-ix-hb*256: 
goto 2078 

ix=-ho-CC int Cho/728))*720): iy=ho 
hb=-int (ix/256):1b=ix-hb*256 
zk=-3:iy-il:il=1:for i=-1 to mf 


gosub 2318 

if kz=-5 then 2158 

if left$ (£fm$Cti),1)<>"Crvs]” then 

goto 21508 

if Fw$(i,0)=-"" or Fw$(i,8)=-" ” then 

goto 2238 

if len (fw$(i,8))<3 then Fw$Ci,0)- 

Fw$(i,8)+chr$ (8) 

if len (fw$(i,0))<3 then fw$(i,0)- 

fw$(i,®8)+chr$ (8) 

print#zk,left$ (fw$(i,0),3):gosub 

798: fe$="[red,rvsJDaten gespeichert 
":zk=zk+1 

for ia=1 to 408-len (fe$): fe$-fes+” 

[rvs) ”:next ia 

next :iz=iy/720 

if iz=-1 or iz=-2 or iz=-3 or iz=-4 or 

iz=-5 then close 8:open 8,8,8,n2$+ 

str$ (iz):nx"iz 

if iz-1 or iz=-2 or iz«-3 or iz=-4 or 

iz=-5 then goto 21398 

if int Ciy/728)<>nx then gosub 3259 

print#15,"p”+chr$ (B)+chr$ (lb)+chr$ 

Chb)+chr3 (1) 

print#8,fs$(1);fs$(2);fs$(3);fs$c4); 

fs5(5) 

gosub 798:if kz=5 then fe$="[red, 

rvs]Daten geasndert ” 

for ia=-1 to 41-len (fe$): fe$=-fes+” 

[rvs] ”:next ia 
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3142 
870 
617 

3000 

2332 

2328 

2326 

1234 
480 

1021 

21839 

2022 


1740 
4928 


3831 
29327 
1338 
1274 
1149 
20393 
2024 
1558 
1544 
1314 


1611 
1312 


1868 
33008 


68097 
3329 


2986 
2663 


585 
1311 
2161 
2668 
4111 
2137 


5055 


3031 
1224 
5817 
3888 


2673 
3433 


3726 
3555 
3159 


>» 


| 


Praxis Listing were 


2230 
2240 


2250 


22608 
2270 
2288 


22308 
23908 
2310 


2320 
2330 
2335 
2340 
2345 
2358 
2368 


23708 
8375 


2376 
2380 


2390 
24008 


2419 
2420 
2430 
2440 


2450 
2460 
2470 
2480 


2490 
2500 
2518 


2520 
2530 
2540 
2558 
2560 
8570 


2588 
25908 


2605 
2618 
2615 
2620 
2638 


2640 
26508 
2668 
2670 
2688 
2690 


2708 
2718 


112 


if en$=" ” or en$="" then 1578 
zk=-3:close B:for i-1 to mf:if left$ 
(£Em$(i),1)=-"C[rvs]” then close zk:zk= 
zk+1 

next :close 15:if wi$S="a” then poke 
2024,08 

if kz=-5 or sl-=2 then 4842 

open 2,B,2,”®@:"+n2$+” ,‚Feldbe,s,w” 
print#2,ho;chr$ (13);ma;chr$ (13); 
mf;chr$ (13); 

for i=1 to mf:print#2,fm$Ci);chr$ 
(13);nfCi);chr$ (13); 

next :print#2,chr$ (13):close 2: 
restore :clr :goto 4948 

if len (fs$Cil))+len (Fw$(li,90))+1> 
49 then il-il+1 
Es$SCil)-Fs$lil)+fwSli,8)+chr$ (13) 
return 

rem Wa 


rem suchroutine 

rem Yeamaunnuns 

if en$="n" then en$-"” ":goto 3888 
if sa<>1 or sb=1 or sr$="s” then 
2430 
sb=1:print#4,ul$:print#4,u2$:print# 
4:for i=1 to mf:if suli)=2 then 2410 
if suli)=-3 or suli)=3 or suli)=6 or 
suli)=-7 or suli)=-18 or suli)=11 or 
suCi)=14 then 2410 

if suli)=-15 then 2419 

if left$ (fm$(i),1)="[rvs]” then 
print#4,mid$ (£fm$Ci),2,len (£fm$Cti))- 
1)” ”;:goto 2498 

print#4,£fm$Ci)” ”; 

if nfti)>len (Cfm$Ci)) then print#H4, 
spc(nf(i)-len (fm$(i))); 

next i 

print#4,chr$ (13) 

s2=9:53=-®:for i=-1 to mf 

if left$ (£fm$(i),1)="[rvs)” and 
FwSCi,0)<>”"" then ir-i:goto 2478 


next i 

s3=-1:il=1:goto 2620 

poke 253,255:poke 254,t1:poke 255,t2 
if i=-d or fw$(Ci,0)=-""” then s3=-1:goto 
3860 

poke 251,8:poke 252,0:i1-®:poke 250, 
asc ( leftS (Fw$(i,0),1)) 

if mid$ (fw$(i,0),2,1)<>"” then poks 
e51,asc ( mid$ (fw$(i,0),2,1)) 

if mid$ (fw$(i,8),3,1)<>"” then poke 
e52,asc ( mid$ (Fw$(i,0),3,1)) 

sys vg 

t3=peek (254):t4=peek (255) 

if psek (253)-=255 then 2570 
il=ct4*256+t3-a1)/3 

goto 2620 

fe$*-"[rvs]Kein (weiterer) Satz 
gefunden[ 1®spaces, off)” 

if sa=-1 then 3338 

if sl=2 then print#1,”***eof”:close 
i:goto 2248 

s2=d:for i6=-1 to mf:Ffw$liß,B)-"": 
Fw$(i6,1)-"":next iß:goto 1699 

rem ZZ ZZ ZZ ZZ 2 ZU 2 U 2 2 


rem rel datei lesen 

rem RR 

if dv=3 then 2650 

print "Chome,rvs]JMoment bitte! |! 
C19spaces]” x 

get k$:if k$<>”"” then 1698 

poke si+4,17 

iz=-i1/720 

if iz=-1 or iz=-2 or iz=-3 or iz=-4 or 
iz=5 then close 8:open B,B,8,n2$+ 
str$ (iz):nx-iz 

if iz=-1 or iz=2 or iz"-3 or iz=-4 or 
iz=5 then goto 2708 

if int (Ci1/729)<>nx then yl=-il:gosub 
3298 

ix=-il-CC int (i1/720))*720) 

hb=int (ix/256):1b=ix-hb*256 


August/87 


hl re EN Re 


1869 
5033 
2659 
1644 
3150 
4261 
4128 
2253 
3416 


3176 
au 


1784 
2268 


4783 
7203 


1482 
5396 


1433 
4017 


276 
1014 
1678 
4107 


276 
1422 
2694 
3317 


4456 
4230 
4375 

353 
1601 
1784 
1959 

s@1 
4387 


1226 
2851 


SEI7E 


1124 
2808 


1348 

8798 
1207 
5817 
3151 
3068 


2339 
2986 


2720 


2738 
2748 
2758 
2768 
2778 
2788 


2798 
2800 


2810 
2820 


2830 


2840 
2850 


28608 
2870 


2880 
28308 


2900 
2918 
8315 


2920 
2925 
2930 
2940 


2950 
2960 
2978 
2980 
23308 
30008 
3010 
3922 
3025 
3038 
3940 
3050 
3068 
3078 
30808 
3890 
3198 
3105 
3118 
3115 
3128 
3130 


3142 
3150 


3168 


31708 
31808 


3185 
3190 
3195 


print#15,”p”+chr$ (B)+chr$ (1b)+chr$ 
Chb)+chr$ (1) 

for i2=1 to mf 
input#B,Fw$(Ci2,1):gosub 798 

next i2 

poke si+4,16:if s3=1 then 2808 

if en$="s” or en$="r" then 2918 

if Fw$li,0)<>left$ (FwSli,1),len 
(FwS(Ci,8))) then 3860 

if FwSCi,1)=-" ” and sl-=2 then 3860 
for i4=1 to mf:if Fw$SCi4,90)<>”” then 
2820 

next it4:goto 2918 

m-suli4):if m=-B or m=-9 or m"18 or m- 
11 then 2858 

if m=-4 or m=-5 or m"=6 or m"=7 then 
goto 2878 

goto 2899 

if val (FwSCi4,0))<val (CfwSci4,1)) 
then 3869 

goto 2818 

if val (FwScli4,0))>val (FwSli4,1)) 
then 3868 

goto 2812 

if Fw$li4,0)<>left$ (FwSCli4,1),len 
(Fw$(Ci4,90))) then 3868 

goto 2812 


if dv=3 then 2980 
rem EEE 


rem ergebnis anzeigen 

rem nn... nn. 

print ”Chome)”; :ta=1:print fe$ 
st$="[red, rvs]Satznummer : "+str$ 
Cil)+” max: ”+str$ (ma)+"” hi:”+str$ 
Cho)+”Loff]” 

for ic=1 to 42-len (st$):stS=st$+” 
[rvs] ”":next ic:print st$ 

for i5=1 to mf:print spc(1i1)”[red, 
27spaces)”:next i5 

print ”Chome,2down]”; 

for iS=1 to mf:if dv=3 then 39908 
print spce(11)”C[red]”;Fw$(li5S,1):if 
sl-2 then print#1,Ffw$(i5,1) 
m-su(iS5S):if sa=1 and m=2 or m=3 or 
m-5 or m=7 or m=18 or m=11 or m"14 
or m=15 then 3068 

if sa<>1 then 3078 

if srS=-"s" then 3070 

if len (fm$Ci5S))>nflCiS) then nfliS)“ 
len (fm$(i5)) 

if left$ (fm$(i5),1)<>”Crvs)” then 
3058 
print#4,Ffw$(Ci5S,1);spe(nf(i5)-len 
(Fw$Ci5,1))-1);:goto 3069 
print#4,Fw$(Ci5S,1);spe(nfCiS)-len 
(Fws$tiS,1))+1); 

if m-1 or m=3 or m=5 or m=7 or m=9 
or m=-11 or m=13 or m=15 then sm(i5)- 
sm(i5)+val (fwS(i5,1)) 

next iS:if sl=2 then 3868 

if sr$=-"s" then goto 7778 

ta=1:if sa=1 then print#4,chr$ (13); 
:goto 3869 

s2=1:goto 1690 

rem EN ZZ 2 2 2 207 


rem indextabelle aufbauen 

rem ee EZ ZZ zZ zz ZZ ZZ 2 07 

if si=-1 then return 
ai=-40960:ao=-zk-3:s1-1:poke 56,162: 
vg=-52968 

t2=int (ai/256):t1=ai-t2*256 

gosub 1359:print "CrvsIIndex wird 
geladen-”;:poke 250,0:poke 251,168 
print ”"Wartezeit:” int CCho*9.03)); 
"sekloff]” 

ii-53091:gosub 4370 

poke 198,8:Ffor i=1 to mf:fw$lti,D)-"" 
next i:sys 65484: return 

rem DI ZZ Zn SZ N ZZ 2 22 2 02 22 2 2 2 2 0 


rem relative datei umschalten 
rem DE a Zn ZZ 2 2 2 2 2 2 2 02 


PraxisListing 


3433 

903 
2049 

476 
1736 
2922 
4231 


8477 
2782 


1193 
2632 


3078 


665 
3386 


601 
3322 


601 
49005 


601 
1256 


1734 
5388 
3518 
3012 

724 
2064 
3748 
6203 
1268 
14908 
3728 
2427 
4783 
4117 
7492 
1726 
1463 
3418 


1076 
4569 


3015 
4245 


3318 


1444 
4637 


close 8 

open 8,8,8,n2$+str$ (C int (i1/720)) 
nx=int (i1/720) 

gosub 799 

return 

close 8 

open 8,8,8,n2$+str$ ( int (iy/720)) 
nx=int (Ciy/720) 

goto 3238 

rem Wa 


rem druckroutine summen 

rem “rm. nn. nn. n—. 

print ”[Lup)” spce(11)"[26spaces)”; 
print chr$ (13)”Lup]” spc(11); 
return 

if sr$=-"s” then 4249 

for i=1 to 78:print#4,”[shift *J”;: 
next i:print#4 


for i=1 to mf:m=-suli):if m=-2 or m=-6 
or m=-18 then 33939 

if sm(i)=-® then print#4,spc(nf(i));: 
goto 3398 

if nf(i)<len ( str$ (sm(i))) then 
print#4,sm(i);:goto 3398 
print#4,sm(i);spce(nf(Ci)-len ( str$ 
(sm(i)))); 

next i:print#4,” ”:if tb$<>”k” then 
close 4:poke 198,8:goto 3418 
print#4, "*#*sof”:print#4, ”*##*sof”: 
close “:poke 198,8 

wait 198,1:goto 4949 

print ”"[Lup]” spc(C11)”"[C26spaces)” 
For i9-i3 to mf-1 

print spce(11)"[26spaces)” 

next i9:goto 1858 

Fw$(i3,0)-right$ (fw$(i3,2),1len 
(fFw$(i3,8))-1):suli3)-suli3)+ty:goto 
1769 


rem Hrunnnenum 


rem datei voll 

rem "Tewmuunnun 

poke si+4,128:for i=1 to 2008:poke 

si+4,128:print ”[clr,6down, 9spaces]A 
ehtung"” 

poke si,i 

print ”"Dateiende erreicht - Datei 
erweitern” 

print "C[C2up]”;:poke si+4,33:poke si+ 
15% 

next i:poke si+4,16:ho=ho-1:goto 

[1-1] 

rem druckroutins hardcopy 

poke 144,8:open 1,da%,1:close 1:if 

st<>-128 then goto 3569 

gosub 1358:print "Drucker 
einschalten !!":goto 3548 

gosub 1358:print ”"[24spaces)”:open 

4,da% ,gk%: print#4: print#4 

For i7=1 to mf 

print#4,£fm$(i7);”:";FwSCi7,1) 

next i7 

close 4:en$=” ” 

goto 15698 

for i=-1 to mf:fw$(i,8)=-" ":next i: 
goto 20228 

gosub 1358:print "Bildschirm Cb) 
Drucker(d) ” chr$ (13)”"Crightloder 
C2spaces]JKassstte(k) ?” 

rem H!ruaunnnnnnan 

rem auswertungen 

rem EZ ZZ ES ZU SZ 2 20 

get tb$:if tb$=-""” then 3659 

if tb$="b” or tb$="d” then 3698 

if tb$="k” then di=4:gosub 6908: poke 
198,8:ta=-1:kz=-5:goto 3738 

goto 36508 

poke 198,8:if tb$="b” then ta=1:kz= 
S:goto 3738 

poke 144,8:open 1,da%,1:close 1:if 
st<>-128 then goto 3728 

gosub 1359:print "Drucker 


272 einschalten !!”:Ffor ss=1 to 228: 
2326 next ss:goto 3798 
1518 3728 open 4,da%, gk%:ta=1:kz=5 
698 3730 sa=-1:goto 1418 
BEIN 3748 if sr$=-"s” then return 
272 3758 gosub 1358:print "Bitte 1. 
2366 Veberschriftszeile eingeben 
1528 C2spaces)”:print "[right]”; 
595 
3768 gosub 8188:ul$=bFf$:gosub 1358 
3778 print "Bitte 2, Ueberschriftszeils 
eingeben[2spaces)”:print ”"[right)”; 
1863 :gosub 8180 
17198 3788 u2$=bf$:poke 198,d:return 
142 3785 rem *+#..» 
1378 3798 rem import 
2496 3795 rem *+su0» 
3808 sl-1:gosub 1358:open 1:gosub 6975: 
goto 1418 
3818 input#1,Fw$(i3,8):print Fw$(i3,0):if 
4175 fw$(i3,90)-"**®*sof”" then close 1:gotao 
2249 
3055 3828 goto 1818 
3825 rem *+suu. 
4313 3838 rem export 
3835 rem *+»».% 
3028 3840 sl-2:kz=5:goto 1419 
3845 rem H#Hunnnnnunununnnnunnne 
4955 3858 rem naechsten satz vorber. 
3855 rem - „nn... nn... .n...n.n.n..nn.. 
3614 3868 if il=ho then 2578 
3878 if s3=1 then il-il+1:goto 2628 
1720 3888 i-ir:poke 254,t3:poke 255, t4:poke 
1684 853,255:goto 2488 
1462 3885 rem m... .... 
1690 3892 rem beschreibung 
1119 3895 rem #+#0»9n0»000% 
6232 3900 print "[Cred,clr,home,rvs]D AV ID: 
Das Multifunktionssystem”; 
3918 print "[rvs, 7spaces,grn] 
Eingabesteuerung Datenbank” 
3928 print "[rvsJF2[LoffJ=Loseschen eines 
Satzes” 
4958 3930 print "[rvsIF3CloffJ=Taschenrechner” 
3948 print "[rvs]F4[off]=Vorhergshenden 
Satz in der DB lesen[2spaces] 
599 (Reihenfolge Speicherung).” 
3633 3958 print "C[rvsIFSloffJ=Naechsten Satz 
in der DB lesen” 
2675 3968 print "[rvsIF6LoffJ-Hardcopy des 
Bildschirms.” 
3133 39378 print "[rvsJIF7loffJ-Satz lesen, 
C2spaces]Suchbegriffe vorher 
eingeben.” 
4217 3388 print ”"[rvsIF8CloffJ=Zurusckschreiben 
eines geaenderten[4spaces]Satzes ( 
3507 [rvs]SCloff2)” 
3338 print ”[rvsJ?[loff]J=Naechsten Satz 
3315 lesen, auf den die ein-gegebenen 
Werte zutreffen.” 
929 4008 print ”"[rvs)It [Loff]J=Auf das 
2727 vorhergehende Eingabefeld[6spaceas) 
496 springen” 
1187 4818 print "[rvs]+«-[Loff)J=Ende” 
655 4020 get t$:if t$="”"” then 4920 
3247 4838 return 
4048 close 15:run 138 
5559 49045 ren nn... .... 
4850 rem eingabepruefung 
4955 rem Hrs0nnnnnnnn00s 
4068 gosub 7568: en$-"” 
4070 get t$:if t$="” then 4070 
4880 if t$>chr$ (132) and t$<chr$ (141) 
1558 then 4288 
1841 4998 if t$="«" then en$=t$:return 
4597 4188 if t$="Chome]” then gosub 4249: print 
”Chome]”; "C2down]” spc(11);:i3-1: 
627 goto 4238 
3828 4118 if t$="[Cclr]” then Fw$(i3,8)-"”: 
print chr$ (13); :gosub 3309: gosub 
4214 7558:goto 4970 
4120 if t$="Cright)” and psek (211)=11+ 
4790 nf(i3)-1 then 4979 
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1558 


1608 
2319 
4352 


4ı22 
3270 
2676 
1985 
231 
3253 
8556 
5332 


5007 


7683 


4601 


1245 
1688 

142 
1113 


1124 
1768 
8773 
2148 
4926 
5233 


3736 
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ze 
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4138 
4148 
4150 
4168 


4165 
4179 


4188 


4190 
42008 
4210 


4220 


4230 


4249 


4258 
4260 


4270 
4288 


42908 
4390 
4310 
4320 
4330 
4340 
4358 
4360 
4365 
4370 


4375 
4380 


4398 
4400 
4418 
4413 
4415 
4417 
4420 


4440 
4450 


44560 


4470 
4480 


4430 


4500 


if t$="[left]” and peek (211)=11 
then 4978 

if t$=chr$ (20) and peek (211)-11 
then 4979 

if t$=chr$ (13) or t$="[down]” then 
4240 

if t$="[inst]” and pseek ( psek 
(214)*490+1835+nf(i3)-1)<>32 then 
4970 

if psek (1B24+1F)>128 then poke 
1924+1f,pesk (C1924+1F)-128 

if t$S=-"[up]” and i3>1 then gosub 
4249:i13=-i3-1:print ”"C2up]” spe(11);: 
goto 4230 

if t$="tT” and i3>1 then gosub “H24B: 
13=-13-1:print ”"[2up]” spce(11); :goto 
4230 

if t$="?” then en$="n":goto 4240 

if t$="t” or t$="[Lup]” then 4979 

if peek (211)<11+nf(i3) or t$="” 
Cleft]” then print t$; :gosub 755®: 
goto 4979 

if psek (211)<11+nf(i3) or t$=chr$ 
(28) then print t$; :gosub 7558:goto 
49070 

gosub 7558:goto 4978 

if peek (1024+1F)>128 then poke 
1024+1f,peek (1B24+1F)-128 

if en$="n"” then return 

print chr$ (13)”Lup,Sright)]”; :poke 
631,13 

poke 1S8,1:input Fw$(i3,8):return 

if t$="[£1]” then gosub 4249: en$="h” 
:return 

if ts“"cf2)” 
:return 

if tS=-"C£f3J” 
9518:return 
IE vse"tf4)” 
:return 

if ts=-"Cf5)” 
:return 

if ts="[£6)3” 
:return 

if tS="CE7I” 
:return 

if tS=-"Cf8)” 
return 
goto 4078 
rem .-— ......nn..... 


rem index aufbauen 

rem m... nn... 

For i-2024 to 2024+len (n2$)-1:if 
peek (i)<>asc ( mid$ (n2$,i-2023, 
1)) then: 4490 

next i:return 

For i-2024 to 2824+len (n2$S)-1:poke 
i,asc ( mid$ (n2$,i-2023,1)):next i 
sys ii:return 

rem .-.—-—-——.—-——n—....... 


rem textverarbeitung 

rem m... nn. 

elr 

open 15,8,15:tf-B4® 

poke 828,128:poke 829,169:poke 838, 
1:poke 831,141:poke 832,146:poke 
833,2 

gosub 4829: 49-2 


then gosub 4249: en$="1"” 


then gosub 4249: gosub 


then gosub 4249:en$="r"” 


then gosub 4249: en$="s” 
then gosub 4248: en$="d” 


then gosub 4249:en$="” ” 


then gosub 4249: en$="u” 


print ”C[Cpur,home,rvs,cbm a, 

38shift *,cbm s)”; 

print "Crvs,shift -) 1 :Editieren 
[6spaces]2 :Drucken[9spaces, shift -] 


’ 
print "[rvs,shift -) 3 :Text laden 
[S5spaces)]+ :Text speichern([2spaces, 
shift -)”; 
print "[rvs,shift -] 5 :Erklasrung 
CSspaces]6 :Druckerparameter 
[shift -1”; 


2741 
2237 
2041 
4B12 


3588 
4865 


5018 


8735 
2138 
49076 


4382 


1188 


3588 


838 
36008 


2181 
2564 


2469 
2308 
2549 
2716 
2463 
2340 
2637 

621 


5479 


624 


4811 
782 


156 
1737 
5158 


1206 


3564 
3662 


3828 


4263 


4518 
4520 


4530 
4540 
4558 
4560 


4570 
45808 


4590 
4600 


4610 
4620 
4630 
4640 
4650 
4560 


4670 


4680 


4690 
47008 


4710 


4720 
4730 
4748 
4758 


47608 


4770 
4789 
4790 


4800 


48190 
4815 
4820 
4825 
4838 
4849 
4850 
48698 


4870 
4880 
4890 
4900 


4918 
4920 
4939 
4940 


4958 
495608 


4978 


4980 


print ”"[rvs,shift -]I « :Zurusck zum 
Hauptmenus[l12spaces, shift -)”; 
print ”[rvs,cbm z,38shift *,cbm x, 
off, 12down]” 

t$="":gosub 340 

get k$:if k$=""” then 4548 

f$- [3 » 

if k$="1" then poke 650, 128:goto 
4920 

if k$="2” then 6130 

if k$=-"3” then gosub 628:poke 65®, 
12B:goto 6498 

if k$=-"4" then gosub 620:goto 6888 
if k$=-"5” then gosub 7138:print ” 
Cclr]”;:goto 4478 

if k$="6”" then gosub 4550:goto 4420 
if k$="«-" then run 138 

goto 4808 

stop 

open B,8,8,"@:drpara,s,w” 

gosub 1358:print "Druckeradresse”: 
print "Cright]”; :gosub 8189:da%-val 
Cbf$):if da%=® then da%=4 

gosub 1358:print "Sek .Adr.Gr./Kl.”: 
print "Cright]"; :gosub B1808:gk%"val 
CbfS):if gk%=® then gk%=7 

gosub 1358:print "Sek.Adr .Grafik ": 

print "Cright)”;:gosub 8180:g9%"val 
Cbf$) 

print#8,da%:print#8,gk%: print#B,gg% 

gosub 13598:print "Anzahl der 
Parameter”:print ”[right]”; :gosub 

81809:ap-val C(bf$) 

if ap=-® then print#8,0,8:close B: 
return 

dim p$(20) 

print#B,ap:for i=1 to ap 

gosub 1350:print "Parameter $"”;i; 
print ”Wert oder ende”:print ” 
Cright]”;:gosub B188:w=val C(Cbf$S):if 
bf$=-"ende” then 4788 

if w255 then print "Fehler, Wert 
»255":goto 4740 

p$SCi)=pSCi)+chrS (w):goto 4742 
next i 

for i=1 to ap:print#B,p$Ci):naxt i: 

close B:return 

f$S=-"[rvs, 7spaces]***** Falsche 
Eingabe ***[7spaces]” 

print "C[Cblk,clr]”:goto 4470 

rem m... -—..... 


rem vorbereitung 

rem ...- m... ..... 

dim a$(208):dim b$(2008) 

poke 53272,23 

poke 53288,1:poke 53281,1 
si-54272:poke si,20@:poke si+1,055: 
poke si+5,02:poke si+6,15:poke si+ 
24,15 


poke si+4,16:if sr$="s” then return 
print ”"Cblk,cir)]” 

return 

if x1<168 then xi1=-x1+21:z1-d:goto 
4920 

goto 5059 

print "[clr,blk)”; 

poke 658,255: for i=® to 20:if 1r-® 
then print a$(i+x1) 

if Ir-1 then print b$SCi+x1) 

next 

if iAr-® then print 


ud» PS re Er RR AP ar IE RE 
“,,...”;:goto 4988 

print 

he re a N RE : ER 
HF IR | 

print ”"[red,rvsJFi[lblu] Hilfe [red] 


F2Cblu] Sort [CredIF3Cblu] Rechn 
Cred)F4[blu] Rusckwaerts”; 


3785 


4136 


880 
1701 
431 
2528 


1518 
3505 


2208 
3084 


2333 
1767 
597 
144 
e171 
6331 


7186 


5355 


1614 
4787 


1693 


618 
1223 
2522 
5501 


2124 
276 
2187 


3368 
1026 


1064 

878 
1565 
69018 


1674 
477 
142 

3071 


697 
S68 
3259 
1394 


130 
6301 


5336 


4990 


59908 
5010 
se20 
59390 
5040 
50590 
5068 
5070 
50828 


50398 


5108 


5110 
5120 


5138 
5149 


5158 
5168 
5178 
5180 


51998 


52028 


52198 
52208 


5230 
5235 


s24o 
5250 


52698 
5270 


5275 
52808 
5285 
5230 
5390 


5310 
53298 


5338 
5349 
5358 


5368 
53708 
5388 
5498 
5410 
s420 
5430 
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print "[Crvs,red]IFSCblu) Vorw [Cred)F& 
[blu] links [Cred]F7[blu] rechts 
Cred)F8CbluJ Such [Cred]*«-Cblu] End 
Coff,b1k]”; 

poke 1984,19:poke 1985,58:poke 1986, 
(x1/21)+49: if zI>208 then zl=228 

pokse 214,zl:poke 284,1:poke 211,2: 
sys 58732 

gosub 7568:gosub 7618:poke 158,0 

if t$=chr$ (13) then 5268 


if t$>chr$ (31) and t$<chr$ (133) 
then 50798 
get t$:if t$="" then 59058 


if peek (214)>1lz then lz=-peek (214) 
if peek (211)-39 then 6019 

if psek (214)-28 and t$="[down]” 
then 430908 

if psek (214)=® and t$="[up]” then 
if x1>8 then x1-x1-21:z1l=-20:goto 
4920 

if t$=chr$ (13) or t$="[down)]” or 
t$="[Lup])” then goto 5838 

if t$5="«-"” then poke 650,8d:goto 4B12 
if t$=-"[left]” and psek (211)-® and 
Ir=-1 then lIr-d:gosub 5678:goto 4928 
if t$<chr$ (133) then 5238 

if t$="[Cblk]” then gosub 5488: goto 
4920 

if t$=chr$ (133) 
goto 4929 

if t$=chr$ (136) 
S2Bd:goto 4920 
if t$=chr$ (139) 
5679:goto 4920 
if t$=chr$ (135) and x1<16B then 
sc%"-1l:gosub 5838: x1=-x1+21:zl-=-®:goto 
4920 

if t$=chr$ (138) and x1>28 then sc%= 
l:gosub 5830:x1-x1-21:zl-29:goto 
4920 

if t$="[£f3]”" then gosub 9518:goto 
5058 

if tS="[£f2]" then 5508 

if t$S="[£8)” then gosub 6359: goto 
4920 

if t$="[inst]” and pesk (1063+(49* 
peek (214)))<>32 then 5058 

if t$="[inst]” and psek (1B24+1F)> 
128 then poke 1024+1F,pesek (1924+ 
1f)-128 


then gosub 7138: 
then Ir=1:gosub 


then 1r=-®:gosub 


if t$=-"[uht]” then gosub 5878: goto 
5059 

if t$="#” or t$="$” or t$=":" or t35= 
»,” then x8="1” 

zn=-peek (214):poke 658,255 

print t$; :t$="":gosub 7558: gosub 
7618:poke si+4,17:poke si+4,0d:goto 
5950 


MDWELLITITDOTTITETTT 


rem zeichen speichern 

rem Ye 

sp"-peek (211):if sp-® then goto 5459 
zl=-peek (214):re$=a$(lzl+x1):a$(lzl+ 
x1)=-"” ":85(zl+x1)=-"":xx=C1024+490*zZ1) 
zi=-zli+xi1 

if leftS (a$(z1),1)=-"[Cblk]” then x$- 
rn 

if left$ (a$(z1),1)=-"” ” then x$="1” 
i=38:if sp=1 then ni=®:goto 5379 

if i>@d then if peek (xx+i)=32 then 
i=-i-l:goto 5359 

ni=i 

for i=® to ni:n=-paek (xx+i) 

if n<32 then n=n+64:goto 5419 

if n?63 and n<256-12B then n=n+128 
a$(z1)-a$(lzi)+chr$ (n) 

next 

if left$ (a$(z1),1)=-" ” then x5="1” 


5714 


4919 
3457 
1326 
1549 
2492 
1712 
2408 
1350 
2346 


3993 


3097 


2843 
4550 


1575 
2194 


2265 
2765 
2712 
se1® 


s261 


B465 


1510 
2295 


4185 
5533 


2469 
3068 


1485 
59798 


2189 
5719 


19855 
2233 


2205 
8557 
3659 


520 
1766 
2169 
2533 
1905 

138 
2205 


54498 


5459 
54608 
5470 
5489 


5430 
5508 


5518 


5515 
55208 
5538 


5535 
5548 
5559 
5568 
5578 
55828 
5598 


56998 
5618 


5620 
56398 
SE40 
5650 


56698 
5665 
56708 
5675 
5688 
5639 


5702 
5718 
5720 
573® 
5749 
57698 
5778 
57808 
57998 
58908 
5810 


5820 
5830 


5849 
5858 


5860 
5878 


5898 
5309 
5918 


53208 
5325 


if x$5=-"1” then a$(lz1)="[blk]”+ 
as(lz1):x$=-"” 

if lz<zl+x1 then lz=zl+xi1 

gosub 6938 

return 

print ”"Cclr,10down] ***#Freier 
Speicher:” fre (8)” Zeichen***#" 

wait 198,1:return 

print ”"Cclr]SORT”:print "Von Zeile:” 
:print ”"[right]”;:gosub 8188:v1-val 
Cbf$):print 

print "Bis Zeile:”:print "[right)”;: 
gosub 8188:v2=val Cbf$):print :print 
"Von Spalte:”:print "[Cright)”; 

gosub 8188: v-val Cbf$) 

print 

print "Bis Spalte:”:print ”Cright]”; 
:gosub 8180:v4=val Cbf$):print 
print "Auf-Ca)oder absteigend(b)” 
print ”"Cright]”; :gosub 8189: abS=-bf$ 
for vS=vi to v2 

if ab$="b” then 5638 

for i=v5 to v2:goto 5618 

next i:next v5:i=vi:goto 4928 
r$S=-a$(li):r1$5-bSCi):a$li)=-aslv5): 

bSCi)=b$(Cv5):a$(lv5S)-r$:b$CvS)er1$ 

goto 55828 

if mid$ (a$(lv5S)+bS(Cv5),v3+1,v4-V3)> 

mid$ (Ca$Ci)+bSCi),v3+1,v4-v3) then 

5598 

goto 5580 

For i=vS5S to v2:goto 5658 

next i:next v5:i=vi:goto 4929 

if midS (a$(CvS)+bS(Cv5),v3+1, v4-Vv3)< 

mid$ (a$SCi)+b$Ci),v3+1,v4-v3) then 

5538 

goto 5649 

rem nn... nn.nn..n.n.n..n.. 


rem zeichen speichern 

rem Hrn nunnsnnunnnunn 

sp=-peek (211):if sp=-® then goto 5458 
zl=psek (214):bSCzl+x1)=-" ":bSCzl+ 
x1)="":xx=(1024+40*z21):i=38 


if i>® then if psek (xx+i)=32 then 
i=-i-1:goto 5799 

if left$ (Cb$(zl+x1),1)=-" ” then 
a5(zl+x1)=-"Cblk]”+aSlzl+x1) 

ni=i 

for i=® to ni:n=peek (xx+i) 

if n<32 then n=n+64:goto 5779 

if n?63 and n<256-128 then n=n+128 
b$SCz1+x1)=-b$Cz1+x1)+chr$ (n) 

next 

if l12<zl+x1 then lz=zl+x1 

if left$ Cb$(zl+x1),1)=-"” ” then x$= 
»,“ 

if x$="1" then a$(lzl+1)="[Cblk)”+ 
aslzl+1):x5-"” 

return 

fz-fre (B):if fz<308 then print ” 
Cclr]Speicher voll”:goto 5999 

if psek (214)=-28 and t$=chr$ (13) 
then t$="” 

if peek (214)=28 and t$S=chr$ (13) 
then t$=""” 

goto 59208 

poke 1988,32:poke 1989,32:poke 1990, 
32 

t$5=-"";zt$=-str5 (xi1+psek (214)):zt$= 
right$ (zt$,len (zt$)-1):poke 1988, 
asc (zt$) 

if len (zt$)>1 then poke 1989,asc ( 
mid$ (zt$,2,1)) 

if len (zt$)>2 then poke 1999,asc ( 
mid$ (zt$,3,1)): return 

return 

if zn<>pesk (214) then 5969 

if peek (1®24+1f)>128 then poke 
19024+1f,psek (1924+1F)-128 
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3078 


1864 
597 
142 

4065 


1118 
5129 


5515 


1393 
153 
49008 


2409 
1833 

935 
1228 
1551 
2293 
6133 


651 
5311 


651 
1615 
2233 
5943 


623 


21839 
seys 


3647 
3884 

5008 
1766 
2304 
2533 
2315 

138 
1864 
8597 
3795 


142 
3812 


2604 
2604 


619 
2767 


5396 


39021 
3223 
ıu2 


1348 
3588 


>» 


wen 


if lr=1 then gosub 5678:goto 59568 
if lr=-® then gosub 5288 


if zd-1 then zd=9:sc%"=®:goto 4920 
if sc%=-1 then sc%-®:return 

if t$=chr$ (13) and Ir=1 then Ir=®: 
goto 4920 

goto 5269 

wait 198,1 

goto 4920 

if lr=-1 then gosub 5670: 1r=®:goto 


4920 

ir=-1:gosub 5288:goto 49208 
i=zl+x1:if sp<>1 then return 
zd=-1:t5-"" 

fz-fre (8): if Fz<300 then print 
"Speicher voll”:wait 198,1:return 
if aSCi)="d” then gosub 7448:return 
if a$Ci)="m” then co=1:cm$-re$: 
a$(i)-reS:zm-i:return 

if a$li)-"a”" then a$(li)=re$:gosub 
7528: return 

if a$Ci)=-"i" then gosub 7388: return 
if a$li)-"r"” then gosub 7478:return 


if a$li)=-"c”" then co=®:cm$-re$: 
a$(i)-re$:return 

return 

poke 144,8:open 1,da%,1:close l1:if 


st<>-128 then goto 6158 

gosub 1359:print "drucker 
einschalten !!”:Ffor ss=1 to 200: 
next ss:goto 6138 

if k1=® then ki-1:gosub 7670 
open 4,da%,gk%:gosub 1358: print 
"Anzahl Kopien”:print "[right)”;: 
gosub 8188:cc$=bf$:gosub 1350 


print "Von Zeile”:print ”"[right)”;: 
gosub B188:vz=val Cbf$):gosub 1350: 
print "Bis Zeile”:print ”"[right)”; 
gosub 8180: bz$-bf$ 

cc=val (C left$ (cc$,2)):bz=val ( 
left$ (bz$,3)):if bz=® then bz=1z 
for il-1 to cc 

for i"vz to bz:if mid$ (a$(i),1,2)- 
”,g” then goto 6318 

if aS$li)=""” and b$Ci)="”"” then print# 
4:goto 6270 

if mid$ (a$(i),1,2)=-",s” then goto 
6329 

if leftS$ (a$(li),1)="Cblk]” then is= 
i:pr=-l:gosub 7838:goto 6278 

if len (a$(i))>39 then print#4, 
a$li)b$Ci):goto 6278 

print#4,a$(i) spc(39-len 
(a$(Ci)))bSCi) 

next :next 

close 4 

kS=-" "7:k5-"":ka=-® 

goto 4922 

close 4:open 4,da%,gg“:goto 6348 
close 4:open 4,da%,gk% 

goto 6270 

print "ColrJSuchbegriff:":print "” 
Cright]”;:gosub 8188: sb$-bf$: print : 
print "Ersetzen durch: ” 

print ”Cright]”;:gosub 8188: er$=bf$ 
print "LCelrJ";:t$="":for i=® to 1zı 
for il=1 to len (a$(i)) 

sh$=mid$ (Ca$(li),il,len (sb$)):if 
sh$<>sb$ then 6,429 

r$S="":if i1>1 then r$=leftS (a$(i), 
41-1) 

r$S=-r$+ter$ 

if il<len (a$(i)) then r$=r$+right$ 
(a$Ci),len (a$(i))-il-len (sb$)+1) 
print ”Zeile "i:print a$(i):print 
r$:wait 198,1:get t$:if t$="c” then 
t$5=-"":return 

aSti)=-r$S:if len (a$(i))>39 then 
a$li)"-leftS (a$li),39) 

next il:for il=1 to len (b$Ci)):sh$-= 
mid$ Cb$Ci),il,len (sb$)) 
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if sh$<>sb$ then 6489 

r$=-"":if il>1 then r$=left$ Cb$(i), 
31-1) 

r$"=r$ter$ 

if il<len (b$C(i)) then r$=r$+right$ 
(b$SCi),len (b$Ci))-il-len (sb$)+1) 
print "Zeile ”"i:print b$Ci):print 
r$:wait 198,1:get t$:if t$="c” then 
t$5="":return 

b$Ci)"=r$:if len (b$(i))>39 then 
b$Ci)=-left$ (bSCi), 39) 

next il:next i:return 

rem EZ U ZU EZ 2 


rem text laden 

rem | 

gosub 1358 

print ”Name der Textdatei”:print ” 
CrightJ”;:gosub 8188: tt$=bf$:tt$= 
left$ (tt$,10):gosub 1358 

print "Kassette (k) oder 
Diskette(d)?” 

get k$:if k$="" then 65308 

if k$=-"k" then gosub 1358:open 1,1, 

®,tt$:gosub 6975:goto 65708 


open 1,8,2,”9: "+tt$+”,s,r” 

gosub 7390 

i=-d:gosub 1358:print "Text hinter 
bestehenden Text laden j/n” 

get J$:if J5=""” then 6588 

if 3$5=-"3jJ” then i=lz+1 

gosub 135®:print "Ab welcher Zeile 
laden”:print "[right]”;:gosub 8180: 

az$-bf$:az-val (az$) 

gosub 1350:print "Bis zu welcher 
Zeile laden”:print ”L[right]”; :gosub 
8180: z$5=-bf$:z=val (z$) 

get #1,df$ 

if z=® then fz%-fre (9): z=fz%/70-2: 
if z<®d then z=d 

if az=-® then 6699 

for i8-® to az:input#1,a$(C0):if 

a5(90)="***aof" then 6858 
input#1,bS(0) 

next iB 

if il=-z and z<>® then 6858 

if i>189 then 6850 

if dfs=chr$ (200) then 6718 
zc$=-dfs:dfS=-"":goto 6715 

get #1,zc$ 

if zc$<>"[Cblk]J” then 6778 
asCi)=-"Cblk)]” 

get #1,zc$:if zc$=chr$ (13) then 

67508 

as(li)-asli)+tzc$:goto 56730 

get #1,z2c$:if zc$<>chr$ (13) then 

b$(Ci)=-b$Ci)+zc$:goto 67598 
i=-i+tl:il=-il+l:goto 6699 
input#1,a$(i):a$li)-zco$ta$li):zci="” 
:if a$li)=-"*“*aof” then 6859 

if len (a$(i))>39 then b$Ci)-right$s 
Ca$(i),len (a$Ci))-39):goto 6879 

if df$<>chr$ (200) then 6795 
input#1,b8Ci) 


if bSCi)<>”®*#sof” then i=i+l:il-il+ 
1:goto 6699 

goto 6858 

lz=-i-1:close 1:if sr$="s” then closs 


15:goto 3708 

goto 49208 

a$li)-leftS (a$(li),39):print a$li): 
i=i+1:i1=il+1:goto 6690 

rem DE EZ ZZ 2 2 2022 

rem text speichern 

rem EI NZ SZ 22 20202 

di=1:gosub 6998:goto 6982 

gosub 1358:print "Name der 
Textdatei”:print ”"[right]”; 

gosub 8189:ttS$-bf$:if tbS="k" then 
kS=-"k”:goto 6949 


2005 
608 


4628 


1556 
1675 
6455 


58308 


801 
4068 


1031 
3596 


655 
520 
2324 
1404 
1457 
2293 
802 
1321 
845 
2410 


2064 
4136 


1898 
sıB2 


3969 
1852 

725 
4455 


641 
39020 


617 
4636 


1770 
3167 


3329 


6920 


6930 
6940 


69508 
6969 
693708 
6975 


6980 
6999 
7908 


7010 


7920 
7830 
79498 
79058 


70608 
70708 
79808 
79938 
7108 
7ı18 
7120 
7130 
7140 
71508 
7168 
7178 
7188 
7198 
7200 
7218 
7220 
7230 
7249 
7250 
7260 
7278 
72808 
7290 
7300 
7310 
7320 


73308 
7340 


7358 


7368 
7378 
7380 
7390 
7490 
7418 


7420 
7430 
74490 


gosub 1358:print "Kassette (k) oder 
Diskette(d)” 

get k$:if k$=""” then 6930 

if k$=-"k” then c5=®:gosub 1358:0open 

di1,1,1,tt$:gosub 6975: return 


open d1,8,5, "@9: ”+tt$+”,s,w” 
gosub 798 

return 

gosub 1358:print :print ”Cblu, 


shift -)”; :return 

print#1,chr$ (200);:Ffor i=-® to 1z 

if a$li)=-""” then a$li)-” ” 

if left$ (a$(i),1)<>”Cblk]J” then 
7030 

for iB=1 to len (a$Ci)):print#1,mid$ 
(a$(i),i8,1); 


next iB:print#1,chr$ (13); :goto 78498 

print#1,a$(i) 

if bSCi)="" then bSCi)=-" ” 

if left$ (a$(i),1)<>”Cblk]” then 

7080 

for i8-1 to len (bSCi)):print#1,mids 
(b$(i),iBß,1); 

next iB:print#1,chr$ (13); :goto 7898 

print#1,b$Ci) 

next :print#1,"**#sof” 

print#1, ”***sof” 

print#1,"***sof” 

close 1:gosub 1358:print "Daten 
gespeichert”:wait 198,1:goto 45498 
print "Cclr,rvs, 7spaces]Edit- 

Beschreibung[ 13spaces]” 

print "C3spaces]JRETURN-Speichern 
einer Zeile” 

print ”[7spaces]JFi-Hilfe” 

print ”[7spaces]F2-Sortieren” 

print ”"C7spacesJF3-Taschenrechner” 

print "C[C7spaces]F4=Rueckwaerts 
blaettern” 

print ”[7spacesIF5-Vorwaerts 
C3spaces]blaettern” 

print "[7spaces]F6=Bild nach links 
C2spaces)verschieben” 

print ”"C7spaces]JF7-Bild nach rechts 
verschieben” 

print ”[7spaces)JF8-Suchen/Ersetzen” 
print ”"[Bspacses]+-=zurusck” 

print ”[7spaces] .g*Grafikzeichen” 
print ”[7spaces) .s-Gross-und 
Kleinschrift” 

print ”[C7spacesJd + Return=Zeile 
losschen” 

print "[7spaces)li +[3spaces)’ 
[Sspacesleinfusgen” 

print "[C7spaces)r +[3spaces)’ 
C[Sspaces]doppeln” 

print "[7spaces]c +[3spaces)’ 
[5spaces]copieren” 

print "[7spaces]m +[3spaces)’ 
[5spaces)verschisben” 

print "(bei c oder m in der 
Empfangszeile ein a eingeben)” 

print ”CAlle Anweisungen muessen ab 
sp.l beginnen)” 

poke 198,8 

print "Snn[2spaces): 
Druckersteuerzeichen” 

print "#nn[2spaces]: Feld Nr. 
DB einsetzen” 

wait 198,1 

poke 198,8:return 

aS(zl+x1)=-re$ 
lz=-12+1:z1-zi+1 

i8ß-lz 

if i8>Czl+x1) then a$liB)-a$CliB-1): 

bS(i8)-b$Ci8-1):iB-iB-1:goto 7419 

asliB)-" ”:bECiB)-" ” 

return 

for i=-zl+x1 to lz:aSCi)-aSci+1): 

bS(Ci)=bSCi+1) 


nn aus 


he ER 


3568 


1749 
4993 


B466 
608 
142 

1758 


1711 
1571 
1991 


3240 


2384 

737 
1577 
2031 


3257 
2394 

745 
1227 
1329 
13239 
4o2ı 
2645 
3398 
1354 
2032 
2507 
2830 
2918 
2344 
3215 
2512 
1752 
2027 
3283 
3073 
2192 
1983 
2128 
2129 
4871 
4663 


8708 
2923 


3207 


897 
1083 
1285 
1922 

658 
6926 


1572 
142 
3958 


7450 
74608 
7470 
74808 
74908 
7580 


7512 
75208 


7538 
7549 
7545 


7558 


75608 
7578 
7588 
7598 
7608 
7618 


7620 
7630 
7648 
7658 
7668 
7670 


76808 
7698 
7708 
7710 
7715 
7720 
7725 
7730 
77498 
7750 
77608 


7770 
7788 
7798 
7808 
7818 
7820 
7838 
78490 
7858 
7860 
7878 
7888 
7898 
79008 
7318 
79208 
7930 
7940 
7958 
7968 
7978 
7980 
7998 
8900 


8010 
8920 


next :lz=1z-1 

return 

aS(zl+x1)=re$ 

lz=-1l2+1:zl=z1+1 

iB-1z 

if iBß>Czl+x1-1) then a$liB)-aslid- 
1):b$CiB8)-b$CiB-1):18-iB-1:goto 75008 


return 

if co=® then gosub 7398:a$(Ci+1)=-cm$: 
return 

gosub 7399: a$Ci+1)=-cm$ 

if i<zm then zm=zm+i1 

xl-int (zm/21)*21:zl=-zm-xi1:gosub 
7448: return 

if peek (1024+1F)>128 then poke 
1024+1f,peek (1024+1F)-128 
lf-40*peek (214)+peek (211) 
le=-psek (1®24+1F) 

if le<128 then hz=le+128 

poke 1B24+1F,hz 

return 

if psek (1024+tf)>128 then poke 
19024+tf, peek (1P24+tF)-128 
tf=-B40+psek (211) 

te=peek (1924+tf) 

if te128 then tz=te+128 

poke 1B24+tf,tz 

return 

open 8,8,8, "drpara”:input#15,F:if £< 
>80 then close B:da%=4:gk%=7:gg9%-9: 
return 

input#B, da“, gk%, 99% 

input#B,ap:if w=® then dim pS(20) 
for i=-1 to ap:input#8,p$Ci):next i 
close B:return 

rem lan aieanb alsaan ale a a a a 


rem serienbrisfe drucken 

rem a a a 

open 15,8,15,”i®”":close 15 

open 15,8,15 

gosub 7678:gosub 628 
wis=-"r":tb$="d”:sr$="s":gosub 4820: 
goto 6438 

is--1 

if is=-lz then ta=1:goto 3868 
is-is+1 

if a$lis)=-"" and b$Cis)=-""” then 
print#4:goto 7788 

if left$ (a$(lis),1)=-"[Cblk)” then 
7838 

print#4,a$(is);spc(4H®-len (a$lis))); 
b$Cis):goto 7788 

for ir=2 to len (a$(lis)):if mid$ 
(a$Clis),ir,1)="#” then 7938 

if mid$ (a$(is),ir,1)="$" then 7949 
print#4,mid$ (a$lis),ir,1); 

next ir:print#4,spc(42-len 
(a$(lis))); 

for ir=1 to len (b$lis)):if mid$ 
(b$Cis),ir,1)="#” then 7950 

if mid$ (Cb$(is),ir,1)=-"$"” then 7968 
print#4,mid$ Cb$Cis),ir,1); 

next ir:print#4,spc(4d-len 
(b$(is))); 

print#4,chr$ (13);:if pr=® then 7780 
return 

print#4,Fw$C val C mid$ (a$lis),ir+ 
1,2)),1); :ir=ir+3:goto 7868 
print#4,p$C val (C midS (a$Clis),ir+l, 
e)));:ir=-ir+t3:goto 7868 
print#4,FwSC val (C mid$ Cb$Cis),ir+ 
1,2)),1); :ir=-ir+3:goto 7908 
print#4,p$C val C mid$ Cb$Cis),ir+l1, 
e)));:ir=-ir+3:goto 7999 

open 2,8,15 

print ”C[Cclr)” 

open 1,8,0, "50” 


get #1,a$,b$ 
get #1,a$,b$ 
get #1,8$,b$ 
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1097 
142 
1285 
ı322 
650 
6183 


142 
2858 


1963 
1988 
3283 


1960 
1025 
1661 
1085 

142 
36086 


1578 
1065 
1753 
1111 

142 
5507 


1475 
1683 
1728 

620 


1688 
1068 

998 
3659 


553 


1971 

729 
2668 
1995 
3721 
3674 
1981 
1761 
2199 
3540 
e117, 
1793 
2231 
22293 

132 
45683 
4582 
4669 
4647 

337 

316 
1122 

756 


756 
756 
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EEE Praxis Listing 


Den 


d c=® 


if a$<>”” then c=asc (a$) 

if b$<>"” then c=c+asc (b$)*256 
print "[rvs]” mid$ ( str$ (c),2); 
tab(3); "Loff)”; 

get #1,b$:if st<>2 then B158 

if b$<>chr$ (34) then 8078 

get #1,b$:if b$<>chr$ (34) then 
print b$;:goto 88398 

get #1,b$:if b$=chr$ (32) then 8108 
print tab(18);:0$-""” 

c$-c$+b$:get #1,b$:if b$<>”” then 
8120 

print "[rvs]” left$ (c$,3) 

if st=® then 8210 

print ” Bloecke frei”:close 1 


® wait 198,1:poke 198,0:run 130 


gosub 1358:print "Befehl=":print ” 
Cright]”;:gosub 8189:goto 8270 

bfs-"” 

poke 204,1:poke 198,8:print ”[rvs] 
Coff,left)”; 

get t$:if t$="”"” then 8200 

if t$="[Cdown]” or t$="Lup]” or t$="” 

Cleft]” or t$="[Chome]” or t$="[inst) 
» or t$="[Cclr)” or t$="[right]” then 

8290 

if t$=chr$ (208) and peek (211)-1 

then 8208 

if tS=chr$ (13) then print ” ”;: 

return 

if t$=chr$ (20) then bf$-leftS Cbf$, 
len (b£$)-1):print ” [2left,rvs] 
Coff,left]”;:goto 8208 

if peek (211)-35 then 8298 

print t$"Crvs) [Loff,left]”; :bf$S-bf$+ 

t$:goto B208 

open 15,8,15,bf$+” ":gosub 799:gosub 
1358:print x$; :wait 198,1:close 15: 

run 138 

poke 53272,23 

rem *+## 


rem dfus 

rem *+#%» 

poke 53280,1:poke 53281,1:poke 646, 

6:da%=-peek (53245):gk%=peek (53246): 

q9=3 

print "[clr,red,rvs,cbm a,38shift *, 
chm s]”; 

print "[rvs,shift -]I 1 :Dialog 
C9spaces]2 :Text senden[Sspaces, 
shift -)”; 

print "[rvs,shift -] 3 :Dialog + 
Disk[l2spaces)+4 :Dialog + Drucker 
Eshift '-I*; 

print ”"[rvs,shift -] 5 :Parameter 
C6spaces]6 :Funktionstaste[l2spaces, 
shift -)1”; h 

print "[rvs,shift -]I « :Zurusck zum 
Hauptmenuel12spaces, shift -)”; 

print ”[rvs,cbm z,38shift *,cbm x, 

off,12down])” 

gosub 349 

get k$:if k$=""” then 8388 

poke 53128, 162:neins="” 

if k$="2” then 8820 

if k$="3" then nein$="d”:goto B46® 


if k$=-"4” then nein$="r":gosub 9110: 
goto B460 
if k$=-"5” then goto 9138 


if k$=-"6” then 89508 


if k5-"«-"” then run 130 

gosub 8929 

if nein$="d” then gosub B790:goto 
8598 

if nein$="r"” then open B,da%,gk*: 
goto 8508 

poke 53128,36 

sys 65484 

poke 251,2 
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hl Ze a ee EN 


3698 
1438 
2153 
2240 


2131 
1740 
3131 
2568 
1455 
2883 

s31 

965 
2056 
2261 
3432 


601 
2387 


1608 
4B62 


2082 
1644 
3766 
1358 
2803 
5250 


878 


5417 


36008 
3489 


y512 


4033 


3785 
4136 


SB 
1574 
1975 
1530 
ey12 


2933 


1738 
1672 
1767 

623 
2283 


2804 
861 


994 
802 


8520 
8530 
8540 
8550 
8560 
8578 


8589 
8590 


8600 
86108 


8620 
86308 
8640 
8650 
86698 
8670 


86898 
8699 
8695 
8636 
8697 
8700 
87198 
8730 


8749 
8758 


8768 
8770 


8788 
8738 
8800 
8810 


88208 


8830 
8840 


8852 
8B608 


88708 
8880 
88908 


89908 
8319 


8328 


8338 
8340 


8959 
89360 


89378 


8980 
83998 


if pesk (2024)<>® then 85408 

if ql=1 then 8678 

gosub 1358:print "Bitte warten”; 

ql-1 

for x=® to 64:poke 49152+x,x:next x 

poke 49152+asc ("”,”),32:poke 49152+ 

8s0(”:*),32 

poke 49152+34,32 

for x"65 to 90:poke 439152+x,x+32: 

next x 

for x=91 to 96:poks “H49152+x,x:next x 
for x=97 to 122:poke 49152+x,x-32: 

next x 

for x=123 to 192:poke 49152+x,x:next 
x 

for x=193 to 218:poke 49152+x,x-12B: 
next x 

for x=219 to 255:poke 49152+x,x:next 
x:p=® 

if psek (51808)-32 then 8678 

gosub 1358:print "Bitte 
Programmdiskette einlegen”:wait 
198,1:load "david*”,B 

gosub 1358:print "Bitte Verbindung 
herstellen”:print "[rightlund eine 
Taste druescken” 

wait 198,1 

print "Cclr]***Bereit***+L[L12spacses)” 
rem ...... 


rem dialog 

rem #+r#»»» 

sys 51008 

if peek (252)-95 then 87408 

sys 65484: print#22,pf$C peek (252)- 
132):sys 65484:goto 8798 

sys 654B4:sys 53128:sys 65484 

print ”"C[Cpur,clir]**Uebertragung 
beendet - Daten werden gesichert” 
if nein$=""” then 8319 

print#8,chr$ (13); ”***sof”:print#B, 
"“.aof” 

close 8B:goto 8318 

gosub 628 

gosub 1358:print ”Name der 
Textdatei”:print ”"[right]”; :gosub 

8188:n$=bf$ 

if nein$=-"d” then open 8,8,B,n$+”,s, 

w”:return 

gosub 628:gosub 1359:print "Name der 
Sendedatei”:print ”"[right)”; :gosub 

81808:n$=bf$ 

open 8,8,8,n$+”,s,r”:open 15,8,15: 

gosub 798 

if qm=® then dim a$(C189):qm-1 

i=-8 

i=i+l:get #8,a$Ci):if a$li)<>”Cblk]” 
then b$=a$(i):goto 88398 


get #8,b$:if b$=chr$ (13) then 8868 
a$li)-a$li)+b$:goto 8878 
input#8,a$(i):a$li)=-b$+a$Ci):b$=-"": 
if aSCi)<>"**#sof” then BB6O 

close 8:close 15:gosub 9978 

print "Uebertragung bsendet”:goto 
8288 

open 8,8,8,"pfks,s,r”:open 15,8,15: 
input#15,F:if F<>® then close B: 
close 15:return 

For i=-1 to 7:input#8B,pf$SCi):i=i+l: 
next i 

for i=-2 to B:input#8,pf$Ci):i=-i+1: 
next i:close 8:close 15:return 

open 15,8,15 

open 8,8,8,”pfks,s,r”:input#15,fF:if 
£<>8 then close 8:close 15:goto 8388 
gosub 8938 

open 8,8,8,”@:pfks,s,w” 

For i8=1 to 7:gosub 135®:print 
"Funktionstaste F”;i8ß:print ”[right] 
"pf$(iB); 

bf$S=pf$CiB):gosub 8190:f$-bFf$:if f$- 
”" then FS=pfS(iB) 


1676 
354 
2371 
572 
es42 
3683 


1585 
2715 


2437 
3259 


BG2H 
2332 
2977 
1626 
S6SS 
6308 


897 
2243 


538 
1668 
4352 


2559 
5199 


1454 
3161 


913 
578 
4199 
3232 


5570 


3007 
er 


366 
3603 


2664 
2159 
4349 


1536 
2986 


4324 


2654 
3378 


10608 
4298 


637 


1984 
5801 


3861 


9005 
9919 
9020 
9930 


90490 


9945 
9958 
90608 
9079 
9089 
99039 


9100 
s118 
9120 


9130 
9140 


9158 
9169 
9179 


5188 
9198 


32008 
92190 
9220 
9230 
9249 


9250 
9269 


3279 
92898 
9299 
9390 
9310 


9320 


93308 
9349 


9350 
9360 
9378 
93808 
9399 


9400 
9418 
9420 
94398 
9440 


9459 
9468 


9478 
94898 


if fS=-"" then F$S=" ” 

print#8,f$ 

iß-iß+1:next iB 

For iB=-2 to B:gosub 1358:print 
"Funktionstaste F”;iB:print ”[right] 
"pfSCi8); 

bf$-pfS(CiB):gosub 8190: f$=-bf$:if F$- 
»” then F$-pf$(iB) 

if £S-"" then f3=" * 

print#8,Ff$ 

i8ß-iß+1:next iB:close B:goto 8288 

print#22,chr$ (2) 

get #22,b$:if b$=""” then 9078 

for il=1 to i:print#22,a$(Cil):print 

a$Cil):next :print#22,chr$ (4): 

return 

print#22,chr$ (19);chr$ (1S);chr$ 
(19); :s1=-1:return 

poke 144,8:open 1,da%,1:close 1:if 

st<>-128 then return 

gosub 1350:print "Drucker 
einschalten !!”:for ss=1 to 20®: 

next ss:goto 9118 

print ”"C[Cclr,rvs, 18spaces]DFUE- 

Parameter[S5spaces, off]"”:print 

print ”"C[rvs]Baudloff) : 58 (1) 75 
(2) 118 (3) 135 (4) 158 (5) 300 ( 
[Crvs]l6Loff)) 608 (7) ”; 

print "24080 (B)L3spaces)? 6Lleft)”; 

get k$:if k$=""” then 9168 

print k$:print :ba=val (k$):if ba-® 
then ba=6 

if ba>B then ba=6 

print ”[rvsJAnzahl Stoppbitsloff) 

1 [Ervs](8o)Loff] 2 (1)C3spaces)? 
C2spaces]@[Lleft]”; 

get k$:if k$="" then 9200 

print k$:print :so=val (k$) 

if so>1 then so-=® 

so-so*12B 

print ”"C[rvs]JBit-Codeloff] : 8-Bit 
(8) 7-Bit [rvs]I(C1)Loff] 6-Bit (2) 
S5-Bit (3)[3spaces]?T[2spaces]i[lsft] 


get k$:if k$="" then 9250 
print k$:print :bi=val (k$):ifF bi=-® 
then bi-1 


if bi>3 then bi-1 

bi=bi*32 

if k$=-"3" then bi-S6 

sr*-bi+so+ba 

print ”"C[rvsJParitaetspruefungloff] : 
Keine (8) Ungeradel2spaces,rvs](1) 
Coff] Gerade (2)”; 

print ” Keine B.Bit=1 (3) Keine 
8.Bit=-® (4)[L2spaces)]?[L3spaces]i1 
Cleft]”; 

get k$:if k$=""” then 9338 

print k$:print :pa=val (k$):if pa=® 
then pa=i1 

if pa>3 then pa-i 

pa-pa®*32:if kS$="2" then pa=36 

if k$="3" then pa-16® 

if k$=-"4” then pa=224 

print "C[rvslVebertragungsartloff] : 
Vollduplex : [rvsI(d)Loff) 
Halbduplex (1)[3spaces)?[2spaces]® 
Cleft)”; 

get k$:if k$="" then 9408 

print k$:print :vo=val (k$) 

if vo>1 then vo=®d 

vo=vo®#16 

print "C[rvs]JHandshakeloff] : 3- 
Draht-Handshake (9) ” 

print "X-Draht-Handshake [rvs](1) 
Coff ‚3spaces]?[3spaces]1[left]”; 
get k$:if k$="" then 9468 

print kS$S:ha=-1:if k$="98"” then ha=® 
if k$="1" then ha=1 


1258 

556 
1282 
4826 


3861 


1250 
S56 
2355 
366 
8285 
Y2B4 


3477 
3869 
4783 


2853 
5838 


1615 
1741 
3137 


1382 
3946 


1565 
1929 
1423 
1147 
5724 


1725 
3154 


1328 

358 
1779 
1386 
5137 


4701 


1677 
2968 


1196 
2193 
1719 
1823 
5776 


1597 
1866 
1366 
11208 
3204 


3032 
1783 


1919 
1542 


[etzt ist es geschafft: Das Hauptprogramm von David 64 


aa ER 


9430 
9508 


9518 


9528 
9538 


9540 
9550 


9568 
8579 


9588 
95308 


36028 
9610 


3620 
9638 
9649 
9659 
9669 
95798 


3680 
3638 
37998 


9718 


3720 
9730 
9748 
9758 


9768 
9779 
3789 
9730 
98008 
9810 
98208 
98398 
9840 
9858 
9860 
9878 


9300 
9319 


99329 
9930 
99498 
9950 
9369 


19002 


bf=-ha+tvo+pa 

close 22:open 22,2,8,chr$ (sr)+chr$ 
(bf):clr :goto 8398 

zl=peek (214):sp=-peek (211):sys 
53157 

poke 214,14:poke 211,19:sys 58732 
print ”[rvs,cbm a,15shift *,cbm s, 
off)”; 

print spc(23)”[Crvs,shift -,15spaces, 
rvs,shift -,off)”; 

print spc(23)"Crvs,shift -,2spaces, 
off ,1@spaces,rvs,3spacses, shift -, 
off)”; 

print spc(23)”[rvs,shift -,15spaces, 
rvs,shift -,off)”; 

print spc(23)”Crvs,shift -,2spaces]7 
8 8 :C2spaces)OFF [rvs,shift -,off] 


’ 
print spc(23)”Crvs,shift -,2spaces)4 
5 6 X[6spaces,rvs,shift -,off)]"; 
print spc(23)"C[rvs,shift -,2spacses]i1 
2 3 -[2spaces]IC[3spaces,rvs, 
shift -,off)”; 
print spc(23)’”Crvs,shift -,2spaces)® 
. = +[6spaces,rvs,shift -,0ff]”; 
print spc(23)”[rvs,cbm z,15shift ®, 
cbm x,off)” 
poke 214,16:poke 211,22:sys 58732 
get a$:if a$=""” then 9638 
if a$=-"o" or a5="«" then 39968 
if a$="+” then goto 9868 
if a$="-" then goto 9878 
if a$=-"*" or a$="x"” or a$="X” then 
goto 3898 
if a$=-":;" or a$="/"” then goto 9310 
if a$=-"=-"” then 9769 
if a$=-"c” or a$="[Cclr]” then F9=B: 
fS=-"";a5=-"":goto 95208 


if a$-"." or a$=",” then a$=".":goto 
9730 

if a$<”"0”" or aS>”"9” then 9638 

if len (f$)-18 then 9638 
FS-f$+a$:print F$; 

For i=1 to len (f$):print "[Lleft)]”;: 
next :goto 95638 

if b$="+” then 9850 

if b$="-” then 9808 

if b$=-"®" or b$="x” or b$="X"” then 
9810 

if b$=-":” or b$="/" then 3820 
FO-FO-val (f$):goto 98308 

fO-fO*val (f$):goto 9830 

FO-fO/val (f$S):goto 9838 

if len ( str$ (f9))<11 then print 
fB;:F$=-"":goto 96208 

print left$ ( str$ (£f0),10):f$S-"": 
goto 9620 

FO-fO+val (f$):print f9;:f$=-"":goto 
9529 

print ”+[C9spaces)”; :f@O=fO+val (f$): 
f$=-"":b$=-a$:goto 9950 

print "-[9spaces]”;:if f®-® then FO- 
val (f$):f$="":goto 9940 

FO-FB-val (FS):goto 9948 

print ”"XC[C9spaces)]”;:if f®-® then FO- 
val (f$):goto 9940 

FO-fF0*val (CfS):goto 9949 

print ":[9spaces]”;:if f®-® then fO- 
val (f$):goto 9949 

if val (f$)>® then FO-fB/val (f$): 
goto 9950 

goto 3958 

FS=-"";b5-a$ 

print ”"[18left]”;:goto 9638 

sys 53185:poke 214,z1l:poke 211,sp: 
sys 58732: return 

wait 198,1:on q9 goto 139,4470,828B®: 
end 
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1238 
3092 


2736 


2599 
1872 


2281 
2174 


B281 
3041 


2753 
2620 


8651 
2503 


2821 
1649 
2468 
1699 
1771 
3015 


2482 
1622 
3719 


3122 


2138 
1598 

983 
2857 


1556 
1608 
eS26 
2237 
1592 
1624 
1656 
2305 
8773 
3ıo01 
3855 
3702 


1523 
3131 


1561 
3264 


2802 

651 
1080 
2823 
3873 


2452 
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RE rn Praxis Listing 


Apfelmännchen — C64 und 
Floppy teilen sich die Rechenarbeit 


System: C64/Floppy 
Art: Mathematische Grafiken 
Sprache: Assembler/Basic 


Apfelmännchen sind Grafiken, die 
der Computer berechnet. Entdecker 
der ganzen Geschichte ist der Mathe- 
matiker Mandelbrot. Der mathemati- 
sche Hintergrund gestaltet sich etwas 
kompliziert, da Berechnungen mit 
komplexen Zahlen herangezogen 
werden müssen. Eine komplexe Zahl 
ist keineswegs eine Zahl, die Komple- 
xe hat, sondern eine Zahl mit einem 
Realteil (aus der Menge der reellen 
Zahlen) und einem Imaginärteil. Der 
Imaginärteil ist ebenfalls eine reelle 
Zahl, jedoch mit i multipliziert, wobei 
it2 als —1 definiert ist. Die benötigte 
komplexe Zahl wird nach der Defini- 
tion 

ce=x+y#ei 

berechnet. Die Variable c wird in die 
Gleichung 

za = zbi2 +c 

eingesetzt. Die Zahl za wird in der 
nächsten Rechnung zu zb (zb ist an- 
fangs null). In jeder Rechnung muß zb 
quadriert werden: 

zb!2 = (xt2—y!2)+i*(2xy). 

Wenn der Betrag der komplexen Zahl 
za größer als vier ist, wird die Anzahl 
der bis dahin durchgeführten Berech- 
nungen in eine Farbinformation, die 
auf dem Bildschirm dargestellt wird, 
umgewandelt. Wird die Bedingung 
„Betrag von za größer vier“ nicht in- 
nerhalb der maximalen Anzahl der 
Berechnungen erfüllt, so bleibt die 
Hintergrundfarbe in diesem Punkt er- 
halten. 

Das Besondere an diesem Programm 
ist zum einen die enorme Rechenge- 
schwindigkeit, zum anderen die Dar- 
stellung von fünf Farbabstufungen. 
Wie wird das gemacht? 

Die Rechengeschwindigkeit wurde 
durch Verwendung modifizierter Ad- 
ditions- und Multiplikationsroutinen 
gesteigert. Bei der ganzen Rechnerei 
ist auch die Floppy schwer beschäftigt 
— sie berechnet genauso viel Werte 
wie der C64 selbst. Die zusätzliche 
Farbinformation wird durch die Dar- 
stellung von 77 Sprites über den ge- 
samten Bildschirm erreicht. 


Zu den Programmen 


Listing 1 ist das Hauptmenü zu „Frac- 
tals“. Mit ihm lassen sich die Grafiken 
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Apfelmännchen — v 
kennt sie nicht?‘ 

mathematische F 
grund ist schwe 


ständlich, doch die 


Grafiken, die „Frac- 
tals“ erstellt, sind 
eindruckend 


berechnen. Die maximale Tiefe be- 
deutet die höchste Anzahl der durch- 
geführten Berechnungen. Je größer 
die maximale Tiefe gewählt wird, de- 
sto dataillierter wird die Grafik in den 
Randbereichen. Für die Zahl der 
sichtbaren Stufen gibt man minde- 
stens 4, höchstens den Wert der maxi- 
malen Tiefe an. Natürlich kann man 
sich auch kleinere Ausschnitte aus 
dem Standard-Bild berechnen lassen. 
Dazu dient Listing 2. Nachdem der 
Filenamen des gewünschten Bildes 
eingegeben wurde, wird es geladen. 
Mit den Tasten 1 bis 5 wird die Größe 
des gewünschten Ausschnittes ge- 
wählt, mit den Cursortasten wird der 
Ausschnitt auf Position gesetzt. Mit 
dem „Linkspfeil" kann man die Posi- 
tion fixieren. Die neuen Koordinaten, 
die der Computer nun berechnet, 


werden dann bei dem Hauptpro- 
gramm eingesetzt. Listing 3 dient nur 
zum Zeigen der Grafiken. Hier muß le- 
diglich der Filenamen angegeben 
werden. 

Die Programme sind als kombinierter 
Hexdump-Basiclader abgedruckt, 
Wird das Programm als Basiclader 
eingegeben, so muß der Lader vor 
dem Start abgespeichert werden. 
Nach RUN werden dann die Daten in 
den Speicher gepoket. Wird es als 
Hexdump eingegeben, so muß der 
Checker benutzt werden. Als Start- 
adresse ist für alle Listings 0801 anzu- 
geben. (T. Borris) 


Ursprüngliches 
Apfelmännchen 


Werte: 

x low: —2.4 

x high: 0.8 

y low: —1.2 

y high: 1.2 

maximale Tiefe: 30 

Farben: 

1. Farbe: 0 

2. Farbe: 6 

3. Farbe: 14 

4. Farbe: 3 

5, Farbe: 1 

Sichtbare Stufen: 30 

(Bei diesen Werten dauert die 
Berechnung etwa 20 Minuten.) 


Das ursprüngliche Apfelmännchen — beeindruckende Grafik nach dem Mathe- 
matiker Mandelbrot. 


0801 
0883 
0811 
0819 
o821 
2829 
0831 
0833 
8841 
8849 
8851 
0859 
8861 
0869 
0871 
0879 
0881 
8889 
0831 
0893 
0Bal 
08a9 
o8b1 
88b3 
88c1 
88c9 
oBd1 
0843 
OBel 
0Be3 
O8F1 
BBF3 
0991 
8903 
0311 
8313 
0321 
8929 
0331 
0939 
0941 
0349 
0351 
8959 
0361 
0969 
0971 
0979 
0981 
0389 
0331 
09939 
0Sal 
0939 
09b1 
0969 
09c1 
29c9 
0341 
0949 
03ei 
8983 
osf1 
o9F3 
0a01 
0a09 
Ball 
®al9 
Ba2ı 
da29 
0a31 
0a33 
Qa4i 
da43 
0a5ı 
0a59 
Ba6l 
0a69 
0a71 
0a79 
QaBl 
0a83 


190 

20 

30 

40 

so 

608 

70 

88 

E14) 
100 
110 
120 
1390 
149 
158 
168 
170 
180 
190 
208 
210 
220 
230 
240 
258 
269 
270 
288 
290 
398 
318 
320 
330 
340 
350 
368 
370 
3808 
3928 
400 
410 
420 
430 
44D 
450 
460 
470 
488 
490 
508 
518 
5208 
530 
540 
559 
568 
570 
580 
598 
6008 
610 
620 
6398 
6408 
659 
660 
670 
6898 
6998 
708 
7ı90 
720 
738 
748 
750 
760 
770 
788 
7908 
800 
818 
B20 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
date 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


de,08,e8,fd,9e,32,30,36, 
34,20,53,43,20,00,00,78, 
a9,34,85,01,30,00,b9,2d, 
08,99,35,83,c8,c®,a0,d2, 
£E5,a9,bf,85,2d,a9,16,85, 
28,4c,35,03,a0,088,b9,c9, 
08,99,00,28,c8,d0,F7,ee, 
39,03,ee,3c,83,d®,ef,b9, 
00,08,c9,51,f®,1b,c8,F®, 
13,c80,40,d0,f2,ad,4a,03, 
c9,1b,d®,eb,a9,37,85,01, 
58,4c,10,208,ee,4a,03,d®, 
88,84, fe,ad,4a,03,85,Ff, 
a8,01,b1,fe,fF®,46,85, fc, 
c8,bl,fe,85,f8,c8,bl,fe, 
85,f9,38,85,2d,e9,04,85, 
2d,b8,02,c6,2e8e,c8,bi,fe, 
91,2d,c8,c4,fc,d®,f7,18, 
a5,2d,65,fc,85,2d,90,02, 
e6,2e,880,00,b1,fB,S1,fe, 
c8B,c4,fc,d®,f7,18,a5,fe, 
65,fc,a8,a5,ff,69,00,8d, 
4a8,03,90,8b,a6,2d,d0,22, 
c6,2e,c6,2d,a80,00,b1,2d, 
c8,91,fe,at, fe,4c,4f,03, 
00,20,00,00,00,20,00,00, 
20,00,20,00,20,00,00,00, 
78,38,89,a2,85,2d,85, fc, 
39,08,e5,2e8e,85,fd,a9,34, 
85,01,c6,2e,ce,2d,28,a®, 
82,b1,2d,99,20,00,88,d2, 
£8,a5,28,c9,87,d0,eb,a®, 
5a,b9,47,08,99,ff,20,8B8, 
do,F7,a2,ff,9a,4c,80,01, 
82,00,b1,fc,e6,fc,d8,22, 
e6,fd,c9,f5,fF®,1e,9d,00, 
08,e8,d0,03,88,10,01,a5, 
fc,05,fd,d®,e5S,86,2d,ad, 
10,01,85,28,a9,37,85,01, 
58,4c,80,8c,51,09,48,08, 
94,15,07,5b,26,00,d0,04, 
a9,f5,d0,d2,85,ff,bil,fc, 
ac,10,801,8c,48,01,a4,Ff, 
cB,88,f0,b8,51,05,56,08, 
a6,F7,ee,10,01,ee,4e,01, 
d®d,ef,20,33,08,03,00,85, 
22,58,40,4f,57,28,3b,Se, 
55,38,85,22,58,48,49,47, 
48,22,3b,52,4f,3a,85,22, 
59,51,905,8a,88,c4,49,55, 
33,85,22,59,51,06,b5,08, 
51,05,49,4f,00,6F,98,14, 
200,85,22,4d,41,58,2e,20, 
54,29,435;,36,45;22,3b,4s} 
4d,33,85,22,46,41,52,42, 
45,31,22,36,46,31,3a,85, 
B2,16,41,52,42,.95 32; 2R, 
3b,46,35,51,08,89,08B,2a, 
16,51,85,33,22,36,46;33, 
00,80,08,1e,00,51,07,04, 
09,58,51,05,34,22,3b,46, 
32,00,9b6,08,23,51,08,14, 
093,2f,16,0b,85,35,22,3b, 
46,34,38,97,35,31,32,36, 
32,2c,46,35,00,b6,08,24, 
00,85,22,53,49,43,48,54, 
42,41,52,45,20,53,54,55, 
46,45,4e,22,3b,53,49,00, 
e2,08,25,00,97,35,31,32, 
35,37,2c,4e,4d,51,905,32, 
09,5b,35,38,2c,46,31,3a, 
51,05,5c,89,51,39,2c,46, 
32,51,06,32,09,05,34,3®, 
2c,46,33,00,F0,08,28,00, 
51,05,33,09,16,31,2c,46, 
34,00,22,09,32,00,44,41, 
b2,28,52,4f,ab,52,55,29, 
ad,31,35,39,3a,44,42,b2, 
28,49,4f,ab,49,55,29,ad, 
31,39,39, 32,42,52,49,55, 
ab,44,42,33,43,b2,52,55, 
ab,44,41,00,3b,09,3c,00, 


a a ERS rg 


57 
ac 
23 
73 
9b 
a3 
68 
5o 
1b 
so 
88 
eb 
81 
84 
72 
e4 
d4 
72 
c7 
a3 
b5 
75 
s2 
53 
Be 
08 
[-/) 
87 
54 
e4 
98 
3b 
£3 
ca 
de 
Pb 
27 
v2 
Sb 
Ba 
lc 
ee 
o2 
11 
es 
28 
e5 
908 
87 
9d 
76 
ec 
48 
la 
8b 
c5 
ds 
d7 
ı1 
id 
02 
Bb 
ic 
b6 
46 
45 
da 
Se 
Sf 
ac 
893 
9d 
be 
28 
41 
82 
13 
fe 
£4 
7c 
fd 
15 


8aS1 
0a39 
Daal 
Baa9 
Babi 
Bab3 
Bacl 
Bac9 
Badıi 
Bad 
Qael 
BaeS3 
Barfl 
Bdafsg 
0b91 
0b29 
®b11 
8b19 
ob21 
0b29 
0b31 
8b39 
0b41 
8b43 
0b51 
8b593 
Ob61 
0b69 
0b71 
8b73 
0b81 
0b83 
8b31 
0b39 
Obal 
0ba3 
®bbi 
®bb3 
®bc1 
8bc9 
Obdi 
8bd9 
®beil 
Obe3 
Obfi 
Obf3 
8c91 
0083 
©c11 
8c13 
8c21 
8c23 
0c31 
0039 
OcH1 
Oc49 
0c51 
0c59 
0c61 
0c63 
0c71 
2c73 
8c81 
0c83 
8c31 
0c33 
®cal 
OcaS 
®cbi 
8cb3 
®cc1 
®8cc9 
®cdi 
®cd9 
®cel 
®ce3 
©cfi 
Ocf3 
0do1 
2d83 
@d11 
8d19 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


58,58,b2,44,41,3a,41,44, 
b2,35,31,32,30,30,3a,8d, 
31,30,30,30,00,54,09,46, 
51,05,c7,09,9b,42,51,08, 
cd,09,85,5c,51,05,36,51, 
07,d6,093,39,16,39,6c,09, 
50,00,58,58,b2,51,08,85, 
03,85,5d,51,05,31,32,51, 
07,8f,09,38e,16,c4,84,09, 
5a,00,58,58,b2,43,51,08, 
fe,093,85,58,51,05,38,51, 
07,07,08,43,16,51,97,09, 
5b,20,85,22,45,49,4c,45, 
Ye,41,4d,45,22,3b,46, 24, 
00,38,09,5c,08,97,35,33, 
32,31,39,20,03,28, 46,24, 
29,00,cf,09,5d,008,81,43, 
b2,31,84,03,28,46,24,29, 
3a,51,06,3d,88,51,05,aa, 
49,20,c6,28,ca,28,46,24, 
2c,49,20,31;,29,29,38,82, 
00,03,08,58,00,44,53,b2, 
53,49,ad,4e,4d,3a,58,58, 
b2,30,33,51,05,4e,2a,64, 
Ye,4d,aa,31,33,58,58,b2, 
586,58,3a,'"4,53,3a,8b,58, 
58,b1,b2,34,a7,58,58,b2, 
55,58,ab,31,00,10,8a,5Sf, 
00,37,35,31,34,35,35,aa, 
49,2c,b5,28,58,58,29,3a, 
82,00,23,08,64,00,9e, 34, 
39,31,35,32,00,3F,0a,e8, 
03,8b,b4,28,58,58,29,b2, 
8b,31,87,97,41,44,aa,35, 
2c,31,33,89,31,30,32,3®, 
00,4b,0a,f2,03,51,06,d3, 
02,16,c3,30,20,62,0a,fc, 
03,58,58,b2,b6,51,05,b3, 
0a,a5,97,41,44,51,06,b1, 
03,62,8d,02,84,08,06,04, 
58,58,b2,28,58,58,ab,51, 
05,fe,0a,27,29,ac,32,35, 
36,38,97,41,44,aa,31,51, 
07,£d,803,c8,a5,63,a6,2a, 
18,51,17,07,0b,8d,28,c8, 
a5,64,8d,29,c8,a5,65,8d, 
2a,c8,a5,66,8d,2b,c8,a5, 
32,51,07,1F,0b,67,8d,2c, 
c8,03,1a,51,17,29,0b,c8, 
ad,2d,c8,85,f8,51,06,4b, 
16,85,0Ff,F9,51,06,50,16, 
10,05,33,51,07,41,0b,Fa, 
51,06,ea,9a,24,51,17,4b, 
0b,55,16,F5,1f,Fb,51,05, 
Sa,16,Ff,51,05,44,0e,F5, 
32,51,0b,eb,34,51,07,63, 
0b,16,07,20,F0,0a,28,04, 
Be,f5S,ff,08,f5,10,00,a0, 
00,b3,00,20,99,00,c0,b9, 
00,21,99,08,c1,b9,00,22, 
99,00,c2,b9,00,23,99,20, 
c3,b9,00,24,99,00,c4,b9, 
00,25,99,00,c5,b9,00,26, 
93,00,c6,b3,00,27,99,00, 
cc,88,d0,cd,a9,00,85,2d, 
a9,81,85,28,89,93,20,d2, 
ff,20,59,a6,4c,aa,a7,f5, 
ff,00,F5,Ff,00,F5,ff,00, 
£f5,b7,00,4c,46,10,a9,00, 
8d,15,d0,8d4,20,d0,8d,21, 
d®,a9,0b,8d,11,d0,a2,08, 
Ba,a8,20,ba,ff,ad,df,cf, 
a2,e0,a0,cf,20,bd,ff,aS, 
80,85,fc,39,48,85,fd,a$9, 
fc,a2,68,a0,7Ff,20,d8,ff, 
90,2c,29,20,85,c6,58,a5, 
c6,F®,fc,4c,13,18,4c,e2, 
fc,ad,3a,c8,8d,40,7F,ad, 
3b,c8,8d,41,7Ff,ad,3c,c8, 
8d,42,7f,ad,3d,c8,8d,43, 
7F,ad,38,c8,8d,44,7F,ad, 
04,b9,02,81,99,48,7F,b9, 
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4 


| 


Per 


8d21 
0d23 
0431 
0439 
Od41 
0d49 
0d51 
0453 
8d61 
0d68 
0471 
8479 
Od81 
0483 
0491 
0499 
Odal 
0da9 
Odbi1 
®db3 
®dci 
®dc9 
Oddi 
®dd9 
Odel 
Ode3 
Odfi 
odf9 
0821 
0e03 
Bell 
del13 
Be21 
de23 
0e31 
0839 
Be41 
de43 
BeS51 
0853 
Be61 
8869 
Bde71 
0879 
deB1 
0889 
des1 
0e93 
Oeal 
OeaS 
debi 
Oeb3 
Beci 
Bec9 
Oedi 
ded3 
Osel 
®se3 
Befi 
Bef9 
orol 
oF03 
oF11 
8f13 
or21 
oF293 
oF31 
0F39 
oF41 
OF43 
oFsı 
0F59 
OF61 
arss 
0£71 
0f73 
oFB1 
of83 
ofs1 
0Ff99 
Ofal 
ofas 


1650 
1668 
1670 
16852 
1698 
17008 
1710 
17208 
1738 
1740 
1750 
1768 


17780. 


1788 
1798 
1820 
1818 
1828 
1832 
1848 
1858 
1868 
1878 
1888 
1898 
1998 
1910 
1928 
1939 
1949 
1958 
19608 
1978 
1988 
19908 
20008 
2019 
2020 
2038 
2040 
2050 
2060 
2070 
2088 
2038 
2100 
2118 
2120 
2138 
2140 
2150 
2168 
2178 
2188 
2199 
2208 
2210 
2220 
22308 
2240 
2250 
2260 
2270 
2288 
2298 
23908 
2318 
2320 
2338 
23490 
23508 
23608 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


09,81,99,50,7F,b9,10,81, 
99,58,7F,b9,17,81,99,60, 
7E,88,10,85,4c,00,18,51, 
07,e2,0b,c8,a2,03,7b,00, 
78,89,da,20,36,07,89,00, 
8d,98,07,9,8c,85,f8,85, 
fc,a9,07,85,£9,85,fd,a$9, 
86,85,fa,a9,07,85,fb,20, 
4f,05,ad,92,07,8d4,99,07, 
ad,93,07,8d,9a,07,ad,S4, 
07,8d,9b6,07,ad,95,07,8d, 
9c,07,a8d,96,07,8d,9d4,97, 
ad,97,07,8d,98,07,89,01, 
8d,9£f,87,a9,99,51,0b,85, 
2c,46,f8,33,c8,35,63,8d, 
80,51,09,91,0c,34,c8,a5, 
64,8d,51,80e,c3,0c,35,c8B, 
a5,65,8d,36,08,a5,66,8d, 
51,09,91,0c,37,c08,85,67, 
8d,a9,00,8d,a0,07,8d,al, 
07,8d,82,07,8d,a3,07,8d, 
a4,07,8d,a5,87,8d,86,07, 
8d,a7,07,8d,88,07,8d,a9, 
07,8d,a8,87,8d,ab,07,8d, 
ac,07,8d,ad,07,8d,a8,07, 
8d,af,07,8d,b9,07,8d,bi, 
07,8d,b2,07,8d,b3,07,8d, 
b4,07,8d,b5,07,8d,b6,07, 
8d,b7,07,8d,b8,07,ad,al, 
07,85,fB,ad,a2,07,85,F9, 
ad,a3,07,85,Ffa,ad,a4,97, 
85,fb,ad,a5,27,85,fc,ad, 
86,07,85,fd,ad,ad, 07,85, 
Sa,ad,ae,27,85,5b,ad,af, 
07,85,5c,ad,b8,07,85,5d, 
ad,b1,07,85,5e,ad,b2,97, 
85,5f,20,0d4,06,06,66,26, 
65,26,64,26,63,26,62,89, 
62,85,f8,a9,00,85,F9,a9, 
8c,51,06,31,0c,38,c8,a9, 
ad,51,05,87,0c,18,fd,20, 
e9,05,a9,01,8d,b8,07,89, 
b3,85,Ff8,a9,07,85,f9,aS, 
a7,51,07,91,2d,ad,2b,c8, 
a1,51,07,99,2d,6d,37,c8, 
7c,05,89,00,8d,b8,07,a9, 
a1,51,07,a9,0d,ad,2a,c8, 
99,51,27,d1,2c,6d,36,c8, 
e3,05,51,05,38,0d,ad,85, 
Sa,51,05,43,0d,29,85,5b, 
51,05,48,04,c8,85,5c,51, 
05,4d,2d,6d4,85,5d,51,05, 
52,0d,35,85,58,51,05,57, 
0d,c8,51,05,78,0d,ad,a5, 
62,8d4,37,07,35,63,Bd,a8, 
07,25,64,8d,a9,07,a5,65, 
Bd,aa,927,85,66,8d,ab,07, 
a5,67,8d,ac,07,ad,ad,51, 
06,dc,2d,28,08,ae,51,06, 
e3,0d,6d,34,af,51,06,ea, 
0d,c8,ad,b®,51,06,f1,0d, 
27,c8,b1,51,06,f8,0d,6d, 
33,b2,51,0b,ff,0d,c8,c9, 
04,b8,11,ee,20,b3,07,a5, 
63,8d,b4,07,a5,64,8d,b5, 
07,85,65,8d,b6,07,85,66, 
8d,b7,07,a5,67,8d,b8,97, 
18,ad,ab,07,6d,b7,07,ad, 
aa,07,6d,b6,07,ad,a9,07, 
64,b5,97,ad,a8,07,6d,b4, 
07,ad,a7,07,6d,b3,07,c9, 
04,b8,de,ee,a0,07,ad,ad, 
07,cd,b9,07,F0,03,4c,c6, 
03,2d,30,07,20,36,07,ee, 
9f,07,ee,9Ff,07,ad,Sf,07, 
c9,a0,b9,03,4c,4b,03,se, 
98,07,2d,98,07,c9,c8,f®, 
03,4c,2b,03,4c,a®d,ea,a®, 
05,b1,F8,d0,27,91,fc,88B, 
18,b1,F8,71,Ffa,31,Fc,88, 
b1,f8,71,fa,S1,fc,88,b1, 
£8,71,Ffa,91,fc,88,51,0d, 
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he ra ee RE 


87 
d6 
36 
83 
60 
cd 
Ic 
af 
7ı 
40 
ad 
bc 
cf 
1b 
83 
a2 
3d 
92 
7a 
de 
793 
Se 
e5 
79 
a6 
dd 
79 
ae 
Od 
£4 
76 
63 
a3 
7b 
o2 
db 
79 
72 
£7 
a3 
ab 
be 
4f 
928 
ce 
53 
73: 
8c 
87 
d9 
d4 
cd 
b® 
04 
Sb 
1b 
c3 
dS 
75 
88 
7ı 
6F 
b7 
49 
Sb 
28 
[> 
28 
56 
6c 
23 
1b 
Se 
£3 
d3 
ec 
bc 
b5 
86 
ca 
94 
a7 


OFfbi 
OFb3 
ofci 
BFfc9 
Ofdı 
oFds 
ofeil 
öfe3 
BFfıl 
OrFfs 
1901 
19083 
19011 
1819 
19021 
1029 
1831 
1039 
19041 
19049 
19851 
1859 
19861 
1863 
19071 
1079 
19081 
19889 
18091 
1899 
10al 
10a9 
18b1 
18b9 
18c1 
1809 
19d1 
1049 
19ei 
1989 
ı10F1 
10F9 
1101 
1109 
1111 
1119 
1121 
1129 
1131 
1139 
1141 
1149 
1151 
1159 
1161 
1169 
1171 
1179 
1181 
1189 
1191 
1199 
1lal 
11a9 
11b1 
11b9 
11c1 
11c9 
ı11di 
11d9 
1lei 
1189 
ı1f1 
11£9 
1201 
1209 
ı211 
1219 
1221 
1229 
1231 
1239 


2470 
2480 
2490 
2508 
2510 
2529 
25308 
2549 
2558 
2568 
8570 
2588 
2598 
2608 
2618 
2620 
26308 
2640 
2658 
26608 
2670 
26808 
2638 
2798 
2718 
2728 
2730 
2749 
2758 
2768 
2770 
2788 
2798 
2808 
2810 
2820 
2830 
2840 
2850 
28608 
2870 
2882 
28390 
239008 
2918 
2920 
2930 
2340 
2958 
2960 
2970 
2989 
2938 
390908 
3019 
3829 
3038 
3040 
3059 
3068 
3078 
3089 
30399 
31008 
311® 
3120 
3138 
3149 
3158 
3169 
3179 
3188 
3199 
3298 
3219 
3220 
3230 
3249 
3259 
3268 
3278 
3289 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


d1,8e,c8,ad,20,c8,cd,39, 
c8,d®,03,60,a0,00,b1,F8&, 
di1,fa,30,33,d0,0d,c8,c®, 
05,d0,f3,a9,00,91,fc,88, 
10,fb,60,39,01,30,05,91, 
£fc,88,38,b1,f8,f1,51,06, 
e3,de,4c,58,f1,51,06,e9, 
Be,c3,4c,f1,fa,91,fc,88, 
51,04,13,0F,98,c1,ad,20, 
c8,20,07,c3,40,60,89,00, 
51,07,0d,0f,58,c3,aa,fa, 
?1,28,37,£0,88,bi;fa;,f1, 
£8,91,fc,88,b1,fa,f1,F8, 
91,Fc,88,51,0d,3e,9F,bd, 
08,c9,c9,03,d80,03,4c,9a, 
690,a0,05,b1,f8,d1,fa,d®, 
05,91,fc,4c,57,05,c9,020, 
d®o,82,85,f8,a6,fa,86,F8, 
85,Ffa,a5,f9,a6,fb,86,f9, 
85,fb,4c,7c,05,82,08,89, 
00,85,55,85,56,85,57,85, 
58,85,59,85,62,85,63,85, 
64,85,65,85,66,85,67,85, 
68,46,fc,90,19,18,a5,68, 
65,5c,85,68,35,67,65,5b, 
85,67,85,66,65,52,85,66, 
a5,65,65,59,85,65,26,5e, 
26,5d,26,5c,26,5b,26,5a, 
26,59,ca,d®,d4,a2,08,46, 
£fb,90,1F,51,19,35,28F,c3, 
84,20,c8,ad,18,c8,4a,"a, 
4a,a8,b9,21,06,85,F9,b9, 
1a,c6,85,f8,a5,64,65,58, 
85,64,06,51,09,c1,dF,ad, 
18,c8,29,07,26,58,ca,d®, 
ce,a2,08,46,fa,30,25,51, 
ı1Ff,d3,0F,18,65,f8,85,F8, 
ad,ı1f,c8,0a,90,02,e6,f9, 
293,£8,18,65,F8,85,f8,90, 
e2,8e6,F9,ad,1f,c8,a5,63, 
65,57,85,63,06,51,09, 85, 
0F,29,03,0a,0a,0d,26,57, 
ca,d®,c8,a2,08,46,f9,39, 
25,18,51,1e,208,10,20,c8, 
a83,bd,65,06,a0,20,11,F8, 
91,f8,68,ee,1F,c8,20,cd, 
c3,cd,39,c8,f0,03,20,07, 
a5,62,65,56,85,62,06,51, 
09,2F,10,c3,51,17,c6,15, 
26,56,ca,d®,c8,a2,03,46, 
£8,90,1Ff,18,51,1F,48,10, 
990,1F,18,51,1f,48,10,F5, 
07,10,£F5,07,02,£5,07,01, 
ES,1f,ff,es,if,cB,ad,if, 
c8,51,05,51,0b,69,10,b®, 
Bde,f5,34,c1,ee,18,d0,a5, 
fd,45,5F,85,67,60,a8,2c, 
00,18,10,fb,a2,10,Be,20, 
18,20c,20,18,30,fb,38,4a, 
Ya,4a,4a,8d,00,18,0a,29, 
0Ff,8d4,00,18,98,29,0F,8d, 
008,18,02,29,0F,8d,00,18B, 
a0d,0f,ea,8c,00,18,60,F5, 
98,008,20,2b,19,a9,7F,8d, 
15,d0,8d,1d,d@,a9,00,8d, 
17,d0,8d,1b,d8,8d,1c,d®, 
a9,18,8d,00,d0,a9,48,Bd, 
02,d0,a9,78,8d,04,d®,a9, 
a8,8d,06,d0,39,d8,8d,08, 
d®d,a9,08,84,03,d0,a9,38, 
8d,2c,d0,39,60,84,10,d®, 
ad,44,7F,8d,27,d0,8d,28, 
d®,8d,29,d0,8d,2a,d0,8d, 
2b,d2,8d,20,d8,8d,2d,d®, 
ad,40,7F,51,06,£3,0b,c8, 
ad,ad,41,7f,0a,da,®a,Da, 
0d,43,7Ff,a0,00,99,00,40, 
99,080,41,99,28,42,99,00, 
43,88,d8,f1,ad,42,7£,99, 
20,d8,99,00,d9,99,00,da, 
39,00,db,88,d0,f1,a9,36, 
84,08,dd,a9,0b,8d4,18,d®, 


i 
| 


Praxis Listing :- = ©. : em Sn 


1241 3290 data a9,3b,8d,11,d0,a9,d8,8d, Sb 14d1 4110 data 85,f9,a9,80,85,f8,a9,50, 3c 
1249 33900 data 16,d0,78,a2,00,a0,3a,bd, Fb 14d9 4128 data 85,fb,a9,40,85,fa,a®d,3b, e3 
1251 3318 data 21,19,48,bd,17,19,86,f8, 1F 14e1 4130 data b1,f8,c8,c8,c8,91,f8,88, 58 
1259 3328 data 84,F9,a6,f9,c8,cd,12,d®, 76 14eS 4140 data 88,88,88,18,F3,51,0b,d7, 4d 
1261 333@ data d®,fb,8e,f8,43,8c,f9,43, dB ı14f1 4150 data 13,890,c0,00,40,80,c0,51, 82 
1269 3340 data c8,8c,fa,43,c8,8c,fb,43, e5 14f9 4168 data 18,a5,fa,69,51,05,e6,13, 22 
1271 3350 data c8,80,fc,43,c8,8c,fd,43, e9 1501 417® data 05,69,00,85,Ffb,18,a5,f8, a7 
1279 3368 data cB,8c,fe,43,c8,a5,01,68, b2 1503 4188 data 69,40,51,05,2f, 13,85,51, cH 
1281 3378 data f5,05,ea,8d,01,d0,8d,03, 07 1511 41398 data 06,f9,13,18,08,c8,51,05, 8c 
1283 3380 data d®,8d,05,d0,84,07,d0,8d, 41 1519 4208 data a2,13,20,c2,60,08,08,05, 48 
1291 3390 data 99,d0,8d,0b,d0,8d,0d,d®, 3b 1521 4210 data 00,04,08,08,01,00,07,08, fc 
12939 3490 data a6,f8,e8,ed,0a,d®,ad,2®, 7e 1523 4220 data 06,00,02,08,08,03,08,05, ®® 
12a1 3410 data 87,ea,a5,cb,c9,40,f0,09, e7 1531 4230 data 08,08,00,08,08,05,00,03, £3 
1289 3420 data 58,51,05,ee,0b,18,4c,03, 5b 15393 4240 data 08,08,02,00,06,08,07,00, 07 
12b1 343 data 190,ad,11,d0,10,Fb,ad,11, 57 1541 4250 data 01,08,08,04,51,06,58,14, 8c 
12b3 3448 data d®,30,Ffb,4c,a0,18,2e,44, bf 1549 4260 data 29,21,Ff,51,06,6F,0c,21, 2f 
i2c1 3450 data 59,6e,82,97,ac,c1,d6,ea, ad 1551 4278 data 22,51,07,6f,0c,23,23,24, 52 
12c9 34560 data 31,46,5b,70,85,9a,af,c#, ac 1559 4280 data 5b,08,80,7f,b9,08,c8,889, 63 
12d1ı 3470 data d9,ee,a9,4e,8d,80,1a,a9, c4 1561 4290 data 80,17,88,10,£7,51,05,71, la 
12d9 3480 data 80,8d,7f,1a,a9,00,85,f8, 8d 1569 4300 data 13,25,13,85,F9,a9,08,20, b5 
12ei 3490 data a9,20,85,f9,a2,00,86,51, eb 1571 4310 data Oc,ed,a9,6f,20,b9,ed,a9, 05 
1289 3500 data 05,d2,0d,c8,a6,fa,bd,76, 6d 1579 43208 data 4d,20,dd,ed,a9,2d,20,dd, dc 
ı2F1 3510 data 1b,c9,ff,d®,03,4c,Ba,la, a9 1581 4330 data ed,a9,57,20,dd,ed,aS,f8, 17 
ı12F9 35208 data 85,fc,a9,08,38,8e5,fc,aB, di 1589 4349 data 2e0,dd,ed,a5,f9,29,0f,20, Ya 
1301 3530 data b1,f8,20,7e,1a,398,18,69, Be 1591 4350 data dd,ed,a9,20,20,dd,ed,51, 58 
1309 3542 data 08,38,b1,f8,20,7e,1a,38, 3F 1599 4360 data 05,da,12,25,dd,ed,c8,c®, 11 
1311 3550 data 18,69,08,51,07,37,12,51, F8 15al 4370 data 20,d0,F6,20,fe,ed,18,a5, aa 
1319 3560 data 05,bd,38,e39,0F,c9,08,d®, 18 15893 4380 data F8,69,20,51,09,42,14,26, 13 
1321 3570 data de,18,a5,f8,69,a0,85,f8, c3 15bl1 4390 data 26,27,28,28,18,d0,b6,51, ad 
1329 3588 data a5,f9,69,00,85,F9,a0,00, 41 15b9 4498 data 15,a5,14,29,2a,2a,2b,2b, Sc 
1331 35908 data 51,1d,38, 12,08e,07,£f4,c®d, 94 15cC1 4410 data ec,2d,2d,2e,2f,00,a0,40, Bd 
1339 3698 data 4c,00,10,51,08,37,17,80, 04 15c9 4428 data e0,80,20,c0,45,20,dd,ed, dS 
1341 3618 data F5,07,40,33,c6,85,F9,b9, 7a 15d1 4430 data a9,00,20,dd,ed,a9,03,20, 13 
1349 36208 data 40,51,0b,b5,17,a8,51,11, ®1 15d9 4440 data dd,ed,20,fe,ed,78,51,05, d4 
1351 363@ data 55,12,f5,07,08,f5,07,04, 47 15e1 445® data 18,12,60,560,89,00,85,F8, 3b 
1359 36408 data f5,51,07,e3,14,1F,Ff,a6, 16 1583 4460 data a8,91,f8,88,d0,fb,e6,f3, 48 
1361 3650 data fa,e8,28,bd,76,1b,aa,51, fF® 15fl1 4470 data ca,d®d,f6,8d,20,d0,ad,3a, 26 
1369 36608 data 20,66,12,51,51,05,d4,17, 84 15Ff9 4480 data c8,8d,21,d0,ad,3b,c8,51, 75 
1371 3670 data Ob,f8,a8,ad,1f,c8,29,07, 89 16901 44S® data 05,44,11,00,3d,c8,51,10, 89 
13793 3688 data aa,bd,75,c6,40,53,c3,a5, b3 16909 4508 data 4d,11,a0,40,e0,80,20,c0, Sb 
1381 3690 data a4,8d,00,dd,ad,00,dd,ca, fa 1611 4510 data 60,00,a0,40,e0,80,3c,c8, 93 
1389 3700 data d@,df,51,10,88,12,10,Fb, bf 1613 4520 data 51,0F,5f,11,20,c0,60,00, 5® 
1391 3718 data ad,12,d0,c9,31,90,06,23, 20 1621 4530 data 80,490,c0,00,20,10,30,51, ee 
13939 3720 data 86,c9,51,05,99,12,02,F0, 22 16293 45408 data 05,78,11,08,51,05,73,11, 4c 
13a1 3730 data 24,51,24,98,12,f0,f3,a5, ca 1631 4550 data 08,ad,156,d0,09,10,8d,16, 12 
1389 3748 data a5,8d,08,dd,F5,09,ea,ac, 64 1633 4560 data d®,51,05,68,11,04,29,07, 45 
13b1 3750 data 00,dd,b9,20,cc,ac,00,dd, 20 1641 45708 data 85,25,09,08,85,a4,20,cd, 16 
13b9 3760 data 19,08,cc,ac,29,dd,19,10, Se 16493 4580 data c3,a9,00,8d,18,c8,a9,0c, 7b 
13c1 377 data cc,ac,00,dd,19,a5,f8,38, 78 1651 4530 data 51,05,dc,0c,0c,c8,51,05, ac 
13cC9 3788 data e9,e0,85,F8,a5,f9,e9,01, 2a 1659 45680 data e2,0c,51,06,85,fa,a9,c8, Bc 
13d1 3790 data 85,f9,18,a5,f8,69,18,51, 56 1661 4610 data B5,fb,20,0c,c4,ad,12,c8, 00 
13d9 3808 data 08,c7,12,18,00,60,51,20, d9 1669 4628 data 8d,19,c8,ad,13,c8,8d,1a, 4d 
13e1 3812 data 7e,1la,c6,fb,f0,03,4c,45, 22 1671 4630 data c8,ad,14,c8,8d,1b,c8,ad, f4 
13689 38208 data 19,a6,fa,38,a5,f8,e9,a8, 23 1673 4642 data 15,c8,8d,1c,c8,ad,16,c8, 28 
ı3Ff1 3830 data 51,05,02,13,35,00,85,£9, 6b 1681 4650 data 8d,1d,c8,ad,17,c8,8d,1e, 49 
13f9 3848 data e8,a0,01,bd,76,1b,c9,08, a8 16893 45568 data c8,a9,08,8d,1f,c8,a9,19, 7a 
1401 3850 data d9,05,08,c8,'1c,54,1a,51, ac 16931 4656708 data 51,06,88,15,1f,7c,51,05, ad 
14089 3860 data 085,c2,12,c7,51,08,0F,13, dS 16939 45680 data e2,0c,10,00,51,909,94,15, ac 
1411 3878 data 0e,69,10,f5,88,d0,f®,bd, ac 16a1 4690 data 20,02,01,03,00,a9,00,8d, c7 
1419 3888 data 76,1b,f0,03,e8,d0,f8,e8, 6e 1639 4700 data 20,c8,8d,21,08,8d,22,c8, 53 
1421 3890 data 86,Ffa,4c,41,19,8d,80,0e, 36 16b1 4710 data 8d,23,c8,8d,24,c8,8d,25, 69 
1429 3908 data ee,7Ff,1a,d®,03,ee,80,1a, 35 16b93 4720 data c8,8d,26,c8,84,27,c8,8d, 3a 
1431 3918 data 60,39,c0,85,fa,a9,5Ff,85, id 16c1 47308 data 28,c8,8d,29,c8,8d,2a,c8, 61 
1439 3920 data Fb,51,05,14,12,1F,58e,85, 67 16C3 4740 data 8d,2b,c8,8d,20,c8,8d,2d, 61 
1441 3938 data F9,a0,3e,b1,f8,91,fa,88, be 16d1 4750 data c8,Bd,2e,c8,Bd,2f,c8,8d, 3a 
1449 3940 data c0,32,d0,F7,38,a5,fa,e9, Ob 16d9 4768 data 30,c8,8d,31,c8,8d,32,c8, 69 
1451 395® data 40,85,Fa,a5,fb,e9,00,85, 3d 16e1 4778 data 84,33,c8,8d,34,c8,8d,35, 59 
1459 3960 data Fb,38,a5,F8,e9,40,51,08, 61 1683 4780 data c8,8d,36,c8,84,37,c8,8d, 3a 
1461 3970 data 28, 13,00,20,£5,1d,c9,Sc, 39 16f1 4790 data 38,c8,ad,21,c8,85,f8,ad, 89 
1469 3988 data d®,d7,85,F8,c9,40,d0,di, De 16f9 4800 data 22,c8,85,f9,ad,23,c8,85, b3 
1471 3990 data 51,08,79,13,00,d0,a5,fd, 87 1701 4B1® data fa,ad,24,c8,85,fb,ad,25, bc 
1479 40908 data 35,51,1d,82,13,45,5F,85, 28 1709 4820 data c8,85,fc,ad,26,c8,85,fd, 78 
1481 14010 data 67,60,48,ad,11,d0,49,1®, 1d 1711 4838 data ad,2d,c8,85,5a,ad,28,c8, d6 
1489 4928 data 8d,11,d0,ad,0d,dd,68,40, £7 17193 4840 data 85,5b,ad,2f,c8,85,5c,ad, 39 
1491 4038 data 60,61,62,63,65,66,53,51, Ef 1721 4858 data 390,c8,85,5d,ad,31,c8,85, 4f 
1499 4040 data 05,a0,13,67,80,51,0a,a6, a5 1723 4860 data Se,ad,32,08,85,5f,20,ca, 38 
14a1 4058 data 13,68,6a,6b,60,6d,6f,38, e® 1731 4878 data c4,51,13,7d,2d,88,40,20, b7 
14a9 4062 data 51,1d,b1,13,70,71,72,74, ce 17393 4880 data 10,08,04,02,01,F5,82,14, 85 
14b1 40708 data 75,76,77,79,7a,7b,7c,7e, Fa 1741 4890 data c4,51,15,6e8,00,51,06,d4, 08 
14b9 40888 data 09,40,80,c0,00,40,80,c0, ®1 1743 4900 data 15,0F,08,a9,2d,51,05,ca, 75 
14c1 4098 data 00,40,80,c0,00,590,51,05, 7d 1751 4912 data 15,F5,fd,20,a6,c4,a9,01, 87 
14c9 14108 data cf,13,49,00,d0,d1,a9,4e, 55 17593 4920 data 8d,38,c8,a9,33,85,F8,a9, 78 


> 


August/87 UM 123 


PURE RN CBI ERENTO 2 


Praxis Listing 


| 1761 4930 data c8,85,F9,a9,27,51,07,7d, £3 69048 read h$:gosub 609050: h=1* 2719 
| 17693 49408 data 16,07,80,F5,21,51,807,85, ®d 16:h$=-mid$ Ch$,2) 

| 1771 49508 data 16,07,50,F5,39,c4,a9,080, 83 680598 l-asc Ch$+"x”)-4B:if 1<0 3198 
| 17793 4968 data 8d,38,c8,a9,21,51,07,95, b6 or 1>22 then 569088 

| 1781 4970 data 16,07,03,f5,19,51,907,00, £S 60068 if 1<1® then return 1944 


60078 1-1-7:if 1>9 then return 1334 
60080 F$-"[rvsleingabefehler”:1- 246568 


600008 For a-= 2043 to 56017 step 4210 O:E-f+1 
8:5=-9:c=0:for b=® to 7: 60990 print "”zeile” pseek (64)* 2726 
| gosub 600849 256+peek (63)f$:return 


60010 s=-s+th+l-c:c=s>255:5-255-s 5034 
and 255:poke a+tb,h+l:next 


b:gosub 60040 saven des programms nach starten 
60028 f$="pruefsumme ok”:if s<> 5693 des loaders mit 
h+l then f$="[rvs] 
pruefsummenfehler”:f=-f+1 poke 43, 1:poke 44, 8 
60038 gosub 68098:next a:print ” 2267 poke 45,136:poke 46, 23 
Cdown)”Ff”fehler”:end save ”name”,B 


| Listing 1: Das Hauptprogramm zu „Fractals“. 


| 0801 10 data Ge,08,e8,fd,9e,32,30,36, 57 03e1 5610 data d6,db,e3,e4,f2,F3,Ff6,fa, fS 
| 0803 20 data 34,20,53,43,08,08,00,78, ac 09283 620 data 00,00,00,00,00,00,00,00, 08 
0811 30 data a2,ff,93,30,00,84,01,a2, 73 esf1 530 data 90,00,00,00,00,00,00,00, 00 
0819 48 data cc,bd,57,08,9d4,33,03,b3, 12 0e3F3 642 data 20,920,00,00,00,00,00,00, 08 
2821 50 data 1d,09,99,ff,00,ca,d®,02, b3 0adı 650 data 00,00,00,00,00,00,00,00, 00 
0829 60 data a2,01,88,dd,ec,c6,2e,a5, 28 0203 660 data 00,00,00,00,00,00,00,00, 08 
0831 70 data 2e8,c9,08,f0,0d,ce,3d,08, ft Ball 670 data 00,00,00,00,00,00,00,00, 00 
08339 80 data b1,2d,99,fFf,ff,88,d8,F8, 6c DalS 680 data 90,00,00,00,00,00,20,00, 20 
0841 90 data f®,eb,84,f8,a0,b7,a9,fa, 29 Ba2ı 690 data 00,90,00,00,00,1f,07,b2, 37 
08493 108 data 85,F9,a9,80,a2,2b,86,2d, 85 0a23 700 data 49,53,82,b4,b3,40,b7,12, c5 
0851 110 data a2,0e,86,28,4c,34,03,a2, 64 0a31 71® data 3a,22,a8,59,81,b0,92,65, 65 
0859 120 data 00,86,fe,0a,f0,20,90,3c, 91 02393 720 data Be,cc,Sc,11,ad,c4,aa,da, d6 
0861 130 data a2,06,0a,fd,2b,26,Ffe,ca, ef Ba41 730 data d3,4d,00,06,8e,19,da,f5, d9 
| 0863 140 data d®,FB,a6,fe,48,bd,07,01, 12 Ba49 ° 740 data 44,d6,bd,88,16,53,b®,0d, 82 
0871 150 data 8d,01,08,68,ee,4e,23,d®, Ff BaSsı 750 data 36,1d,74,84,7a,f0,d1,0b, 59 
0873 168 data de,ee,4f,03,d02,dS,b1,f8, ec 024593 768 data 60,b8,10,90,91,26,d9,®b, 61 
0881 170 data 2a,cB,dd,da,e6,f9,d0,d6, 3£ Oa61 770 data 28,3e,72,4b,22,35,83,6b, 16 
08893 180 data a9,37,85,01,58,4c,10,08, 083 0a693 780 data 42,44,0a,dd,53,36,12,12, da 
0831 190 data b1,fFB,28,c8,dß,cf,e6,fS, LE) 8a71 7908 data 24,98,35,4b,a3,4d, 78,32, bB 
0833 200 data ddö,cb,fd,ec,da,f®, 15,b8, 83 0a79 800 data 72,47,d1,a6,4f,f8,Fa,34; 73 
OBa1 210 data 2b,82,03,0a,fd,1a,26,fe, BO ®a81 810 data c9,45,dc,ed,2d,93,49,49, 94 
| 0829 220 data ca,dO,FB,a6,fe,48,bd,ff, bf 0a83 6820 data 96,c7,51,45,60,8f,a3,4a, 05 
| 08b1 230 data 00,4c,4d,03,b1,F8,2a,c8, la 0aS1ı 830 data “He,5c,75,7e,40,ce,e3,da, 64 
8b 240 data d®,e5,e6,Ff3,d0,e1,f0,c8, ef 0a33 840 data 5a,9f,24,99,69,2a,2b,5c, 55 
@8c1 250 data b1,f8,2a,c8,d®,ed,e6,f3, £3 Oaal 850 data 15,41,a3,fa,4f,40c,75,7e, 78 
08cC98 260 data dd,dc,fF®d,bc,Ba,f0,15,b0, a8 0aa3 868 data 49,ce,e3,db,4a,9f,22,b7, 31 
OEd1ı 278 data 38,a22,06,0a,f0,1a,26,fe, 50 Oabl1 870 data b4,16,14,02,42,44,49,21, d6 
0EdS 280 data ca,dO,f8,a6,fe,48,bd,47, 77 Oab3 880 data d2,92,c3,45,15,81,15,2e, 39 
OBe1 280 data 21,4c,4d,03,b1,fB,2a,c8, 1b Bac1i 890 data aB,34,4b,88,93,d2,ac,d3, cb 
0883 308 data d®,e5,e6,F9,d0,e1,fF0,38, 1F dac9 9008 data 19,4b,10,00,00,00,00,00, df 
eBF1 318 data b1,F8,2a,c8,d0,80,e6,f3, £S Badı 910 data 00,00,00,00,03,e5,c1,fe, e2 
oBFS 320 data dd,dc,F®,8c,b1,f8,28,c8, 73 Bad3 9320 data 4c,cb,93,90,66,4c,e0,392, ec 
0901 338 data d®,2c,86,f9,d0,08,4c,65, 5f Bael 938 data 8c,1e,c9,25,45,60,4b,cb, 76 
0303 3402 data 03,a2,07,0a,F9d,ee,26,fe, 83 Bae3 940 data 35,50,68,97,00,00,ea,1f, Bi 
0311 352 data ca,dO,fF8,a6,fe,48,bd,87, 37 Bafi 950 data Fd,b0,4d,4d,85,94,aa,c1, 27 
8319 360 data 01,4c,4d,03,09,d0,8d,a9, 14 Oaf3 S6® data d6,51,98,04,10,75,0c,ef, d3 
0321 370 data B0,01,08,31,99,ff,ad,13, Ba Ob?1 970 data dO,58,b8,c0,2f,e2,e8,c8, dd 
0323 380 data 03,09,4c,c8,58,85,239,2d, “e 0b23 S8® data b5,c8,1a,2b,54,64,d9,d5, d® 
09331 390 data 59,c9,f7,20,b2,02,05,3a, ei Ob11 998 data d3,ec,60,9c,b7,8c,4d,76, bc 
09333 400 data 7f,a0,b9,f0,10,04,30,35, a7 Ob19 1008 data @b,db,25,24,60,53,20,44, 27 
09341 410 data 38,0a,28,2c,2e,32,41,48, 1F Ob21 1010 data b8,56,0b,27,00,f9,c9,2c, ea 
03493 H2® data Fc,22,43,81,b1,fe,39,ee, 9a Ob23 1022 data 88,c0,bb,Qe,2a,10,c4,9a, b8 
0351 430 data 34,44,8c,aa,15,18,33,37, cb 0b31° 1038 data c1,05,10,20,20,07,38,2c, 7® 
03593 440 data 46,88,a5,ac,24,36,45,69, Bb 0633 1040 data 84,98,3a,32,77,b0,5d,c8, 58 
0361 HS® data 78,97,a2,f8,04,06,0b,0c, 83 Ob41 1050 data 52,ab,20,c7,eb,5d,b3,87, ba 
0363 H56D data “a,48,53,8b,c0,c1,c6,f3, 38 0b49 1060 data 49,a0,34,29,da,ec,17,5a, 698 
0371 H7® data fd,9F,11,12,1b,1d,90,31, e3 ObS5i 1978 data 14,a1,65,b8,1a,e8,3e,ec, a6 
0373 488 data a6,a7,ab,ce,d9,e5,ea,97, b3 0b53 1028® data b7,7e,dS,3F,bb,3c,df,3e, ed 
0381 492 data 14,17,19,1e,21,3b,40,47, d7 Ob61 1090 data 1d,54,da,a0,4b,32,70,12, 7a 
03898 500 data 49,4F,5b,65,82,84,8a,S9e, da Ob6E3 1100 data 23,50,3d,39,18,e8,1e,9c, Ba 
0351 512 data at,aß,bd,cH,cf,d8ö,da,dc, ea 0b71 111® data c8,d4,0Ff,4e,66,33,07,06, e3 
0339 520 data dd,e6,e7,eB,fb,0e,16,1a, df 0b79 1128 data 23,27,c1,27,2b,13,d1,49, 35 
09a1 530 data 2a,3c,3f,42,50,51,57,5a, e7 ObB1 1130 data 1b,d2,17,13,3Ff,eb,22,87, 46 
0983 542 data 62,69,6e,79,86,33,96,9a, dd 0b89 1140 data a7,80,30,26,66,80,87,6d, 31 
0361 550 data Sd,af,bd,c2,d2,df,ed,e3, c6 0b91 11S® data ef,74,f1,2a,85,a4,af,2b, a6 
09369 568 data eb,ec,ef,f1,F5,1c,23,26, d3 @b393 1160 data 40,61,04,78,1f,6d,Ff2,c2, 56 
03c1 57® data 27,2b,3d,4d,56,5f,64,68, df Obal 117® data 7b,77,e1,d2,5b,18,a0,55, ai 
0893cC3 588 data 6f,70,7c,7d,88,95,9c,3f, ft @baS 1188 data 1b,08,33,e2,20,75,64,3a, ba 
093d1 530 data al,a3,ae,b3,b4,b5,b6,b8, f6 Obb1 1190 data 4b,63,12,9c,34,0h,84,69, ab 
09349 #600 data ba,bc,be,c3,c7,ca,cd,dS5, se Obb3 1200 data 9b,7e,2b,eB,ab,cd,cd,ee, 1d 


m 


®bc1 
8bc9 
Obdi 
ObdS 
Obel 
Obe3 
®bfi 
ObfS 
8c01 
2c83 
©c11 
8c19 
0c21 
8029 
8c31 
2c39 
®c4H1 
8c49 
8c51 
8c53 
Oc61 
8c639 
0071 
8079 
®cB1 
8c89 
2c81 
0c393 
®cal 
®caS9 
®cbi 
®cb3 
Bcci 
8cc9 
Ocdi1 
®cdS 
®cel 
Oce3 
Ocfi 
Ocf9 
0491 
0d283 
odı1 
2d19 
od21 
od23 
0431 
8439 
Od41 
0d49 
0d51 
0459 
Od61 
8d63 
8471 
8479 
8481 
0489 
0491 
0493 
Odal 
OdaS 
Odbi 
Odb9 
Odcl 
®dcS 
Oddi 
OddS 
®del 
OdeS 
Odfı 
Odfs 
de21 
0883 
Bell 
Bde139 
de21 
de29 


12108 
1220 
1230 
1240 
1258 
1268 
1278 
12808 
12908 
13008 
1310 
13208 
13308 
1340 
1358 
1369 
1378 
1388 
13998 
1498 
1418 
14228 
14308 
1440 
1458 
1468 
1478 
1480 
1490 
1508 
1518 
1520 
1538 
1549 
1558 
1568 
1578 
1588 
1598 
1608 
1610 
16208 
16308 
1640 
1658 
1668 
1678 
1680 
16928 
1700 
1710 
17208 
1738 
1748 
1750 
1768 
1778 
1788 
1798 
1808 
1818 
18208 
1838 
1840 
1858 
1868 
1878 
1888 
1890 
1908 
1910 
1920 
1938 
1940 
1958 
1968 
1970 
1989 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


ge,2f,e2,be,79,52,a9,aa, 
31,01,a9,32,f4,0a,bd,Sa, 
Bf,6e,d8,1a,b3,74,02,ae, 
el,f5,61,906,F3,30,10,d®, 
38,22,c2,33,84,2b,33,30, 
60,43,50,63,8ef,72,c3,cf, 
cd,c9,54,e4,50,63,ef,72, 
c3,cf,ce,a9,5b,f®,db,f3, 
de,1d,26,06,29,39,da,S5, 
4e,64,34,08,93,2d,76,cb, 
99,e5,01,c1,33,44,04,3a, 
19,af,b6,95,90,7a,17,3b, 
al,a9,cc,3d,2b,7d,d®,c®, 
34,56,18,08,74,35,08,74, 
95,31,52,£b,28,53,98,7a, 
1c,ad,81,79,17,e0,36,c8, 
8a1,73,46,34,b4,88,d2,al, 
72,3e,aa,7b,66,50,bd,33, 
1a,53,64,69,50,8f,ab,50, 
14,51,55,10,89,33,06,a3, 
72,d5,fb,50,89,23,a2,32, 
el,ef,da,82,9a,2e8,e0,"®, 
ca,9f,91,19,48,c1,33,d93, 
54,32,23,6f,db,23,bd,e$, 
09,6c,3b,25,01,87,Ba,c5, 
02,06,59,18,d4,8a,3c,70, 
ec,b2,b1,52,e5,87,49,4b, 
65,19,10,96,Ff7,c8,3c,a®, 
31,31,63,82,06,59,90,d®, 
2c,9c,58,51,26,46,df,b6, 
67,7b,d3,12,d6,ed,“4a,26, 
88,bb,c1,83,2c,cc,6a,45, 
1e,38,76,7c,5d,24,d4,58, 
Sa,d4,bc,42,42,38,F9,87, 
94,06,d6,2b,1a,0Ff,a7,d5, 
72,Fd,a8,2c,22,b6,00,6b, 
31,78,86,87,05,e2,86,5c, 
a9,53,dc,b4,05,94,56,d8, 
0a,bf,3b,39,f2,b9,39,9b, 
05,50,56,02,03,08,11,15, 
80,83,80,04,4d,60,59,80, 
2d,b5,80,69,80,0F,55,80, 
8d,808,09,F5,81,62,00,14, 
1d,42,98,9£f,31,29,19,ae, 
Ya,ce,08,23,2f,91,3F,8c, 
aa,56,cf,6d,20,c2,64,56, 
1f,99,23,ab,809,ea,e8,23, 
04,f6,ee,08,ea,2b,80,44, 
91,28,c0,24,e8,44,90,08, 
99,90,8£,88,80,11,e3,15, 
10,8f,e0,98,21,1a,b4,48B, 
10,84,62,23,04,66,15,d®, 
Be,e8,380,61,1F,b1,58,0c, 
2d,b5,04,ce,24,57,82,28, 
41,12,F9,22;67,30,00,81, 
14,b0,c2,51,54,14,f0,83, 
490,18,58,aa,5d,bb, 76,ed, 
9c,d5,28,82,00,14,50,01, 
83,00,17,£f0,01,9b,a8,553, 
78,4b,fa,90,00,b1,80,04, 
c4,08,2c,880,01,bd,ea,16, 
5c,6c,50,80,b4,1a,08,5c, 
42,35,08,91,c1,1a,cH,4b, 
ad,fc,1a,c8,49,c8,83,44, 
0b,84,41,d4,15,95,9B,ac, 
ad,27,9c,4b,b8®,8e,f8,S1, 
e1,19,44,9e,0c,8F,7f,81, 
56,93,b9,87,44,e3,57,34, 
88,96,23,fa,a5,16,94,45, 
c7,6e,91,e1,Bda,el,a8,Fff, 
Sb,72,2f,34,7d,ce,18e,68, 
fb,97,19,a3,ee,c9,39a,3e, 
e4,66,68,fb,b4,e6,Bf,dB, 
ad,ic,ea,49,a1,14,22,88, 
11,52,08,93,61,14,50,89, 
04,11,59,03,53,fa,dd,S2, 
ba,18,50,29,34,e8,28,80, 
93,c1,12,78,31,8e,9a,F8, 


60018 


60020 


60038 
600940 
60050 
600960 
60078 
60080 


60039 


For a= 2049 to 3937 step 


33,89,39,10,69,a1,780,88, 83 
30,093,76,11,e7,15,95,9c, 56 
81,80,5c,02,3F,a2,02,d0, 2b 
69,01,23,82,3e,02,e2,11, 15 
c7,12,e8,3e,f®,6d,98,c3, bS 
2a,3e,f7,44,b7,89,a83,f4, 7b 
53,34,b2,58,b6,35,5e,38, bf 
d7,39,86,04,10,03,38,01, 83 
9c,08,ce,28,41,9d,84,10, 81 
60,80,85,21,0a,02,14,04, 7c 
28,08,50,10,b60,d3,7b,50, 68 
64,96,06,0c,19,d9,41,06, 3£ 
0c,12,00,24,01,48,02,30, 82 
05,20,03,48,14,80,2c,34, 3c 
7a,9d,07,5d,95,8d,ea,7c, fd 
3a,51,ee,cf,f7,0a8,21,20, £5 
c1,83,39,1f,24,0b,89,06, dd 
24,68,61,14,82,5c,86,15, a® 
12,05,05,0a,c0,65,54,15, a2 
80,c6,4c,4f,85,60,31,48, c5 
2b,01,84,02,71,61,51,a2, 6a 
83,93,180,09,35,800,92,b2, 085 
32,09,38,11,01,12,44,31, 13 
80,30,87,48,37,67,Be,a®, dd 
92,21,£F7,3a,73,20,0a,a8, e2 
Qa,d8,ea,40,a3,9e8,b3,01, 33 
52,04,50,f5,a4,54,81,63, 23 
3d,6f,75,20,27,73,f5,b®, ic 
99,19,04,aa,ä2,3e,22,29, 37 
06,21,51,20,f0,8a,21,06, b7 
51,00,83,28,24,80,47,04, 13 
5c,02,3a,22,c0,19,ed,8c, 78B 
f9,ed,fc,1a,eb,89,a9,1a, de 
£f3,e6,b1,95,ed,4d,47,57, bB 
Sf,4d,49,d7,f5,35,al,ae, 37 
85,9a,74,93,74,37,cb,1c, ci 
cB,ca,46,88,04,8d,8a,7e, 3F 
b2,90,31,35,d1,24,2a,24, di 
ae,dc,42,28,00,00,00,00, ed 


8:5=-d:c=d:for b=-® to 7: 
gosub 69948 } 


s=s+th+l-c:c=s>255:s=-255-s 


and 255:poke a+b,h+l:next 
b:gosub 69048 


f$=-"pruefsumme ok”:if s<> 


h+l then F$="[rvs] 
pruefsummenfehler”:f=f+1 


gosub 60090:next a:print ” 


Cdown)”f”Ffehler”:end 


read h$:gosub 60059:h=1* 


16:h$=mid$ Ch$,2) 


l=asc Ch$+"x")-4B:if 1<0 


or 1>22 then 60088 


if 1<1®8 then return 
l=-1-7:if 1>9 then return 
f$=-"[rvsleingabefehler”:1- 


B:f-F+1 


print ”zeile” peek (64)* 


256+psek (63)f$: return 


saven des programms nach starten 
des loaders mit 


poke 43, 


1:poke 44, B 
poke 45,181:poke 46, 15 
save ”name”,B 


Listing 2: Mit diesem Programmteil werden die Koordinatoren eines neuen Bildausschnittes berechnet. 


ee EN er. 


August/87 Um 125 


>» 


Listing 3: Dieses Listing dient nur zum Zeigen der Grafiken. 


= 


0891 
0809 
o811 
0819 
0821 
08293 
0831 
0839 
0841 
8849 
0851 
0859 
8861 
0869 
0871 
8879 
0881 
8883 
0831 
0893 
0Bal 
0Ba3 
08b1 
08b3 
88c1 
08c9 
88d1 
0849 
OBel 
0883 
oBFl 
B8F3 
8901 
“EIE} 
03911 
0913 
0321 
0329 
0331 
093393 
0341 
8949 
0951 
0959 
0361 
0969 
0971 
0979 
0981 
0983 
0991 
0939 
09ail 
0933 
03b1 
09b3 
2Sc1 
23c9 
8941 
0949 
29el 
0983 
ogfl 
03F9 
dadl 
0a09 
Ball 
0a19 
Ba21 
0a29 
0a31 
0a39 
DaHt1 
Ba49 
2a51 
0a59 
Da6l 
®a69 
8a71 
0879 
da81 
0a89 


10 

20 

38 

40 

50 

690 

78 

88 

so 
100 
118 
120 
130 
140 
150 
160 
178 
188 
198 
2008 
218 
220 
238 
240 
258 
2608 
270 
2898 
298 
398 
310 
320 
330 
349 
358 
360 
378 
389 
390 
400 
418 
420 
430 
440 
450 
4608 
470 
489 
498 
508 
518 
522 
538 
540 
550 
568 
570 
5808 
5930 
6008 
610 
620 
6398 
6490 
650 
669 
670 
688 
699 
7008 
718 
720 
738 
740 
750 
768 
778 
788 
790 
820 
810 
820 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


Au 
ERS 


0e,08,eB,fd,9e,32,30,36, 
34,20,53,43,00,00,00,78, 
a2d,ff,9a,a0,00,84,01,a2, 
cc,bd,57,08,94,33,03,b$9, 
1d,09,99,ff,00,ca,d®,22, 
a2,01,88,d0,ec,c6,2e,a5, 
2e,c9,28,Ff8,0d,ce,3d,®8, 
b1,2d4,99,Ff,Ff,88,d0,F8, 
f®d,eb,84,F8,a0,eb,a9,fd, 
85,£9,a9,80,a2,80,86,2d, 
a2,0a,B6,2e,40,34,23,a2, 
00,86,fe,0a,f0,20,30,3c, 
a2,06,0a,f0,2b,26,Ffe,ca, 
d®d,f8,a6,fe,48,bd,07,01, 
8d,21,08,68,8e,4e,23,d2, 
de,ee,4f,03,d0,d9,b1,F8, 
2a,c8,d2,da,e6,f9,d0,d6, 
a9,37,85,01,58,4c,10,08, 
b1,F8,2a,c8,dd,cf,e6,Ff8, 
d®d,cb,f®,ec,2a,Ff0,15,bB, 
2b,a2,03,0a,f®,1a,26,Ffe, 
ca,d®,F8,a6,fe,48,bd,ff, 
00,4c,4d,03,b1,F8,2a,c8, 
d®d,e5,86,f9,d®d,el1,F®,c8, 
b1,f8,23,c8,d0,e8,e6,f3, 
d®d,dc,Ff®,bc,0a,F0,15,b8, 
38,a2,06,0a,f®,1a,26,fe, 
ca,d®,F8,a6,fe,48,bd,47, 
01,4c,4d,23,b1,f8,2a,c8, 
d®d,e5S,e6,Ff9,d0d,e1,F0,38, 
b1,f8,23,c8,d8,e8d,e6,f3, 
dd,dc,f®,8c,bi1,f8,2a,c8, 
d®,0c,86,f9,d0,08,4c,65, 
03,a2,07,0a,Fd,ee,26,fe, 
ca,d®d,f8,a6,fe,48,bd,87, 
01,40,4d,03,00,d8,8d,a9, 
£f7,08,FF,01,85,99,43,ad, 
c8,fc,10,46,8c,0a,11,20, 
e0,0d,28,31,7F,97,82,0B, 
29,4c,88,a0,Ffd,15,24,35, 
3a,49,85,b1,c9,e6,ee,f8, 
fb,02,05,18,1b,30,38,4®0, 
41,42,48e,78,a6,bd,d8,8e5, 
eB,ea,f®d,f1,F9,03,04,07, 
0b,2c,0d,12,16,22,32,33, 
34,39,3b,44,45,48,4d,58B, 
59,5b,60,64,6e,82,86,Ba, 
9a,9d,a4,a8,ac,ae,c3,c6, 
cf,d9,dd,e8,06,09,17,1c, 
1d,1e,21,26,27,2a,2b,36, 
37,30,47.,97., 58,50, 54,58, 
70,81,84,87,8e,93,96,39e, 
a7,aa,af,b2,b3,b8,b9,ba, 
el,cH,ca,cb,cd,ce,d2,dS, 
d6,da,db,df,eb,ef,fa,fe, 
00,00,00,00,020,00,00,00, 
00,00,00,00,00,00,00,00, 
00,00,00,200,00,00,00,00, 
00,20,00,20,00,00,00,00, 
00,00,00,00,00,00,00,00, 
00,20,00,00,020,00,00,020, 
00,00,00,00,00,0202,00,00, 
00,00,002,020,00,00,00,00, 
00,002,00,00,00,20,00,00, 
00,20,00,200,00,00,00,00, 
00,00,20,00,00,00,008,00, 
00,00,20,20,00,00,00,00, 
00,00,00,00,00,00,00,00, 
00,28,00,08,00,1b,f5,Be, 
97,39,b8,22,8c,bc,e7,40, 
b0,34,24,03,a6,e7,31,33, 
4b,50,17,e6,c1,20,2b,07, 
1d,e9,d8,3d,85,90,ae,b®, 
60,95,c5,82,60,56,09,29, 
19,29,54,07,a4,7b,f1,70, 
c5,08e,56C,36,30,13,b2,85, 
2a,02,f4,0f,9c,51,Bf,7a, 
2Be,6b,01,8e6,92,9b,2e,31, 
ed,4e,1a,b2,01,d1,75,41, 
f6,fc,50,31,43,97,0d,68c, 
00,0 ,a1,38,20,54,03,5f, 
8a,98,8c,79,1b,Be,96,3%4, 


st/87 
DR 


53 
7E 
£4 


daS1 
0a33 
Baal 
Baa9 
Babl 
Bab9 
Bacl 
Bac9 
Badı 
Bads 
Bael 
Oae3 
dafı 
Baf9 
0b81 
8b83 
®b11 
8b19 
8b21 
8b29 
0b31 
8639 
Ob41 
8b49 
0b51 
8b59 
0b61 
0b63 
0b71 
0b79 
ObB1 
8b83 
0b91 
0b33 
Obal 
Oba3 
Obbi 
8bbS 
®bcei 
8bc9 
Obdi 
Obd3 
öbel 
Obe3 
Obfl 
ObFfS 
®cP1 
2c03 
®c11 
2c19 
8c21 
0c29 


830 
BHO 
858 
860 
879 
880 
890 
El) 
918 
920 
938 
3490 
358 
968 
979 
988 
9998 
1908 
1010 
1028 
1038 
1040 
1050 
1060 
1070 
10808 
1098 
11998 
1118 
11228 
1130 
1140 
1158 
1168 
1178 
1180 
1198 
12008 
1210 
1220 
1230 
1240 
1258 
1268 
12708 
12808 
1298 
1308 
1318 
1328 
1338 
1340 


600008 


60019 


69022 


60039 
69940 
6090250 
60069 
60070 
600808 


600398 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


for a= 2045 to 


4a,dd,98,14,a8,0b,d0,24, 39 
c5,18,£8,b7,1c,2c,8d,92, d8 
a3,41,01,02,b9,Bf,76,aa, 56 
23,76,04,58,21,02,86,88f, 35 
68,0a,72,ac,41,46,da,2d, ec 
05,3e,dc,c4,d5,38,f6,aa, c7 
01,14,55,90,16,b7,57,f3, 76 
d2,c9,aa,71,ed,54,b9,46, 4d 
da,2d,05,3e,da,f6,ec,c4, 9F 
dd,36,1a,9c,7b,53,2e,cc, af 
9f,52,85,c4,88,15,e5,47, 3e 
81,76,84,d2,85,55,81,1e, 50 
54,80,28,cf,42,ea,39,a6, 79 
e2,4c,00,00,36,90,c0,21, db 
80,43,00,34,40,30,40,9a3, 68 
3F,F®,27,4b,46,70,aa,99, 13 
Se,10,c0,21,80,43,00,3d, Bc 
c1,48,39,34,bc,b6,0c,d8, 2f 
d8,F4,e5,24,fd,74,e4,be, 52 
26,18,25,61,66,1d,01,59, 74 
08,94,81,18,04,a2,208,b4, S4 
04,43,30,8f,38,80,11,a2, 83 
45,94,23,de,2f,41,1a,5c0, a3 
4a,00,8F,380,84,11,54,52, 03 
42,3d,42,Fa,11,33,85,18, 29 
30,d0,£f4,04,28,08,a9,84, 14 
55,02,25,48,44,aa,08,a6, 2d 
04,53,43,8F,5d,01,4b,08, 84 
94,01,87,b2,84,39;32,6%, 52 
fe,85,42,b8,20,83,5c,18, ed 
6c,82,04,b®,41,03,b8,7b, b3 
c3,db,42,08,39,41,02,76, a6 
08,18,d8,20,63,ab,27,b8, af 
d7,42,02,78,7F,05,9c,23, 11 
43,03,50,47,c8,48,00,ef, d3 
a4,8a,f7,38,07,94,89,e2, 31 
ad,934,92,c6,b6,f1,c3,c4H, a9 
5,23,69,43,91:71,88,14, 71 
BF,10,a2,48,64,a1,44,91, 4F 
92,14,49,11,61,44,91,62, 081 
14,49,2c,90,28,97,Be,b3, a8 
86,68,82,38,45,e4,22,cc, da 
11,7b,88,94,21,17,c0,Bb, "a 
£E0,78,63,8e8,9F,92,18,72, a6 
d6,fd,6f,30,£8,35,F6,dd, 28 
8b,18,05,64,23,a2,28,27, 8F 
87,20,52,82,3b,22,ce,11, 8d 
c4,12,00,28,e8,72,83,1b, 67 
24,39,41,d3,92,ab,21,1a, 28 
72,1d,18,98,48,d1,4c,30, 71 
8c,67,59,f1,d1,ab,48,09, £3 
45,f3,03,9d,c4,44,c8,00, 07 


3113 step 39377 


B:5="9d:c=9d:Ffor b=® to 7: 
gosub 560042 


s=-s+h+tl-c:c=s?255:s=-255-s 


so34 


and 255:poke a+b,h+l:next 
b:gosub 6002408 


f$=-"pruefsumme ok”:if s<> 


5699 


h+l then F$="[rvs) 
pruefsummenfehler”:f=-f+1 


gosub 60898:next a:print ” 


2267 


Cdown]”f”fehler”:end 


read 


h$:gosub 60050:h=1* 2715 


16:h$S=mid$ Ch$,2) 


l=asc Ch$+"x”)-4B:if 1<O 


3198 


or 1>22 then 60088 


if 1<18 then return 
1-1-7:if 1>9 then return 
f$="[rvsleingabefehler”:1- 


1044 
1334 
2468 


G:f-f+1 


print "”zeile” peek (64)* 


2726 


e56+psek (63)f$:return 


saven des programms nach starten 


des loaders mit 


poke 43, 


1:poke 44, 8 
poke 45, 49:poke 46, 12 
save "name”,B 


Spiele Listing 


Jagd auf Willi 


System: C64 Möglichkeit, seinen Konkurrenten für 
Art: Spiel an 2 kurze Zeit unsichtbar zu machen. Dies 
Sprache: Basic UZINBEIESUELFA ZEIG geschieht über einen Druck auf den 


Typ der es faustdick Feuerknopf des Joysticks. Dieser Zau- 


berspruch kann jedoch nur einmal 


Zwei Gegenspieler jagen in einem 7 hinter den Ohren hat. pro Willi eingesetzt werden. Wer ihn 


mal 9 Kästchen großen Feld hinter 


ein zweites Mal benutzen will, wird 


Willi her. Willi ist jedoch nichteinfch WAUGZDSTIEEI Fe TEE seibst unsichtbar. Das Spiel bietet 
zu fangen, .da er schnell durch das geneina nder e) ielen, drei Schwierigkeitsstufen, die vor 


Spielfeld springt. Die Aufgabe der 


Spielbeginn eingestellt werden kön- 


Spieler ist es, ein quadratisches Feld müssen vers uchen, ihn nen. Gespielt wird über zwei Joysticks 


so zu lenken, daß es auf Willi liegen 
bleibt. Wer Willi zuerst erwischt hat, 
hat gewonnen. Jeder Spieler hat die 


ne 

e ram sprites ----- 

= W 

4 dim p(15):for e=® to 15:read a:p(e)- 
a:next 

S for a=2008 to 222:for b=® to 62:read 
c:poke 64*a+b,c:next b,a:w1-®:w2=®: 
poke 788,52 

8% 

180 rem ----- titelbild & zeit ----- 

11 


28 poke 53280,0:poke 53281,0:f-®:gosub 
1928: w1-®:w2=® 
30 v-53248:poke 2041,202:poke 2042,202: 
poke v+41,18:poke v+48,18:poke v+21, 
- 6:d=1 
42 j=peek (56320) 
SB if J-126 then d=-d+1:if d=4 then d=3 
68 if J-125 then d=-d-1:if d=® then d=i1 
78 if jJ=111 then 111 
88 if d=-2 then poke v+4,113:poke v+5, 
181:poke v+2,218:poke v+3,181:goto 
118 
98 if d=3 then poke v+4,161:poke v+5, 
157:poke v+2,161:poke v+3,157:goto 
118 
1800 poke v+4,65:pokse v+5,205:poke v+2, 
855:poke v+3,205 
118 goto 498 
111 z$5="Chome , 24down,blulZeit:[cbm 8, 
18cbm i,cbm S,10cbm o,cbm 4,1®8cbm p] 


112 if d=-3 then z$-left$ (z$,42) 

113 if d=2 then z$-leftS (z$,53) 

117 if f=1 then F=®:print z$” [home)”: 
return 


119 rem sr anzahl der willis ----- 


139 poke v+21,0:f-1:gosub 1099:for e=39 
to 46:poke v+e,15:poke 20081+e,202: 
next :w=i1 

148 print ”[4down, 2spaces,yellwieviele 

willis wollt ihr jagen ?” 

158 a=-®:Ffor e=1 to 15 step 2:poke v+e, 
175:a=a+l:poke v+e-1, a*28+38:next 

1680 j-pesk (56320) 

178 if jJ-123 then w=w-1:if w=® then weil 

188 if j-119 then w=w+l:if w=9 then w=8 

198 if j-111 then gosub 1508:goto 218 

200 poke v+21,2Tw-1:goto 169 


205. ran ---— spislfsld ----- 


ee ER ee, 


einzufangen. 


2793 
5138 


40393 
5363 


891 
2796 
2834 
2142 
1951 


210 


327 
328 


(in Port 1 und 2). Beendet ist das Gan- 
ze, wenn alle Willis gefangen wurden. 


(K. Kobold) Si: ze 


a$=-"[rvs,blu] [cyn,shift -,2spaces, 4137 
shift -,2spaces,shift -,2spaces, 
shift -,2spaces,shift -,2spaces, 
shift -,2spaces, shift -,2spaces, 
shift -,2spaces, shift -,2spaces, 
shift -,blu, 18spaces, off]” 
bS$S="Crvs,blu] [Ccyn,cbm q,2shift ®, 4457 
shift +,2shift *,shift +,2shift ®, 
shift +,2shift *,shift +,2shift ®, 
shift +,2shift *,shift +,2shift ®, 
shift +,2shift *,shift +,2shift ®, 
cbm w,blu,18spaces, off]” 
fFSCO)-"Crvs, Bspaces, off]”:FSC1)-" 6083 
£[rvs]) Willis [LoffJ”:FSC2)=FSc09): 
FSCIHI-FSCO): FSCHI=-FSCO) 


fSC5)=-"Crvs) Zauber [Loff]”:f$C6)- 5097 
FSCO):FSC7I-FSCO):FSCB)-EFSCO) 

pokse v+21,8:poke 53265,139 2230 
print chr$ (14)”"[clr,blu,rvs, 2485 
39spaces, off]” 

print "Cblu,rvs]) [Ccyn,chbm a, 3799 


eshift *,cbm r,2öshift *,cbm r, 

shift *,cbm r,2shift *,cbm r, 

eshift *,cbm r,2shift *,cbm r, 

2shift *,cbm r,2shift *,cbm r, 

shift *,cbm s,blu,18spaces, off]J"” 

for e=® to 6:print a$:print a$:print 2677 
b$:next 

print "Cup,blu,rvs] [Ccyn,cbm z, 4318 
shift *,cbm e,2shift *,cbm 8, 

@shift *,cbm e,2shift *,cbm e, 

@shift *,cbm s,2shift *,cbm e, 

Eshift *,cbm e,2shift *,chbm e, 

shift *,cbm x,blu, 10spaces, off]” 

print "Cblu,rvs, 39spaces,off] "z$” 2344 
Chome,cbm 7)” 

poke 2022,d+4B:for e=® to 8:print 3177 
tab(30)fSCe):next :print ”"[red, 

3down]” 

for e=® to 8:print tab(30)fS(e):next 3447 
:poke 53265,27 


Bam hauptteil ----- 


s1$5-"[32right]”:s2$="[Bdown]”:x$=" 6601 
[Crvs) Ja [Loff]” 
4S="[rvsJneinloff]”:w1$="Chome]”+ 2588 
s15+”"[4down,rvs,cbm 71" 
w2$S="Chome]”+s1$+s2$+s2$S+"[down,rvs, 2128 
red)" 

fa$=-"Chome]”+s1$+s2$+”"[rvs,cbm 73” 1666 
fb$S="Chome]”+s1$+s2$+s28+"[Sdown, 2549 
rvs,red]” 


August/87 SYD 127 


>» 


poke 2041,200:pokes 2942,208:poke 
2047 ,202:poke v+46,8:poke v+4B,2: 
poke v+41,14 

bf$=x$:af$-x$:print fa$;af$; fb$;bf$; 
w1$;w1;w2$;w2:poke 198,8 

poke v+2,36:poke v+3,207:poke v+4, 
PEB:poke v+5,63:poke v+14,132:poke 
v+15,135 

if w=® then 1220 

poke v+21,134:t=1:f1-25:f2=-25:s= 
5y272:for e=® to 24:poke s+e,®:next 
print "[Cblu,home)” tab(S)”"CrvsJWilli 
C2spaces]GD !!!”:for e=1 to 38:poke 
s+1,120:poke s+5,9:poke s+15,3® 
poke s+24,15:poke s+4,21:next :poks 
s+4,208:print "Cblu,homs,rvs]” tab( 
9)"C13spaces)]"” 

poke s+24,08 

Ji=-pesk (563209): j2=-psek (56321) 

if Cj1 and 1)-=® and pesek (v+3)>63 
then poks v+3,pseak (v+3)-24:if di 
then 440 

if (jJ1 and 2)=® and peek (v+3)<207 
then poke v+3,peek (v+3)+24:if di 
then 448 

if (31 and 4)=® and peek (v+2)>36 
then poke v+2,peek (v+2)-24:if di 
then 448 

if (j1 and B)=® and peek (v+2)<228 
then poke v+2,paek (v+2)+24 

if C)J2 and 1)=® and peek (v+5)>563 
then poke v+5,psek (v+5)-2H:if di 
then 488 

if (jJ2 and 2)=® and peek (v+5)<207 
then poke v+5,psek (v+5)+24:if di 
then 4858 

if (jJ2 and 4)=® and peek (v+4)>36 
then poke v+4,paek (v+4)-24:if di 
then 488 

if CJ2 and B8)-=® and psek (v+4)<228 
then poke v+4,peek (v+4)+24 

if Cj1 and 16)-® and bf$=x$ then 
bf$=-yS:poke v+41,3:f1=-®:print 
fbSbf$:goto 490 

if cj1 and 16)-® then F2-8 

if (jJ2 and 16)-® and af$-x5 then 
afS-yS5:poke v+4B,3:f2-=9:print 
faSaf$:goto 508 

if CJ2 and 16)-@ then fFi1=-9 
El=-fl+r1:FO=f2rl:t=t+l:ze=rze+l 

if peek (v+2)=psek (v+14) and peek 
(v+3)=peek (v+15) then wf=2:goto 338 
if peek (v+4)=psek (v+14) and peek 
(v+5)=-peek (v+15) then wf=1:goto 938 
if £f1>15 then poke v+41,14:goto 560 
if £1>1® and pesk (v+41)=243 then 
poke v+41,14:goto 568 

poke v+41,3 

if F2>15 then poke v+40,2:goto 598 
if F2>1®8 and psek (v+49O)=243 then 
poke v+4Bd,2:goto 590 

poke v+40,3 

if peek (v+2)=peek (v+4) and peek 
(v+3)=peek (v+5) then poke 2041,201: 
goto 618 

poke 2041,208 

if t=2 then t=d:gosub 798 

if ze>2 then ze=d:z$-left$ (z$,len 
(z$5)-1):print z$” [Chome)” 

if right$ (z$,1)="[cbm 8]” then 878 
get a$:if a$="[stop]” then gosub B8® 
goto 398 


zufallsberechnung 


x=int C rnd (1)*9)*24+36:y=int C rend 
(1)*7)*24+63 

if (Cx=-peek (v+2) and y=peek (v+3)) 
or (x=peek (v+4) and y=peek (v+5)) 
then 718 

poke v+14,x:poke v+15,y:for e=® to 


4:poke s+24,9:poke s+24,8:next : 
return 


poke 198,8:poke v+21,9:print "Chome] 
” tab(5)"[7down,rvs,blu, 19spaces]” 
print tab(S)”C[Crvs,blu] Willi macht 
Pause ” 
print tab(5)”[rvs,blu,19spaces)” 
get aS:if a$<>”[stop)” then 835 
print ”Choms]” tab(5)”C7down,rvs, 
eyn,2shift *,shift +,2shift ®, 
shift +,2shift *, shift +,2shift ®, 
shift +,2shift *,shift +,2shift ®, 
shift +,shift *]” 
print tab(5)”"[rvs, 2spaces, shift -, 
2spaces, shift -,2spaces,shift -, 
2spaces, shift -,2spaces, shift -, 
2spaces,shift -] " 
print tab(5)”[rvs, 2spaces, shift -, 
@spaces,shift -,2spaces,shift -, 
2spaces, shift -,2spaces, shift -, 
@spaces,shift -] ":poke v+21,134: 
poke 198,8:return 


zeit aus 


poke v+21,8:print "Chome]” tab(7)” 
Crvs,blulDie Zeit ist aus” 

print "Chome]”s2$s2S tab(7)”[7doun, 
rvs,blu]JTaste drusckenChome]”:poke 
198,0 

wait 198,1:print "Chome]” tab(7)” 
[rvs,blu,16spaces)” 

print ”"Chome]”s2$s2$ tab(7)”[7doun, 
rvs,blu, 14spaces, home)” 

f=-1:gosub 111:w=w-1:goto 338 


willi gefangen 


print "CredJ”;:if wf=1 then print ” 
Ccbm 73”; 

poke v+21,8:print "Chomse)”s2$ tab( 

5)”"[rvs 2ispaces, off)” 

print tab(5)”"[rvs,3spacesJWilli 
wurde von[l3spaces, off)” 

print tab(5)”"[rvs] Spieler” str$ 
(w£f)” gefangen! Loff)” 

print tab(5)"[rvs,21spaces,off)” 
print "Chome]”s2$s2$ tab(B)”[7down, 
blu,rvsJTaste drusckenChome)” 

for e=148 to 108 step -1:poke s+l,e: 
pokse s+5,9:poke s+15,30:poke s+24, 
15:poke s+4,21 

next :poke s+4,20 

if wf=1 then wi=wi+l1:goto 941 
w2=w2+i1 

print w1$;w1;w2$;w2:poke 198,2:wait 
198, 1:wew-1 

print "Chome]l”s2$ tab(5)”[cyn,rvs, 
2spaces, shift -,2spaces,shift -, 
2spaces, shift -,2spaces,shift -, 
2spaces,shift -,2spaces,shift -, 
2spaces,shift -,off)” 

print tab(5)”"[rvs,2spaces,shift -, 
2spaces,shift -,2spaces,shift -, 
2spaces,shift -,2spaces,shift -, 
2spaces,shift -,2spaces,shift -,off] 


print tab(5)”"[rvs,2shift *,shift +, 
shift *, shift +,2shift *,shift +, 
2shift *,shift +,2shift *,shift +, 
shift *,shift +,2shift *,shift +, 
off)” 

print tab(5)”[rvs,2spaces,shift -, 
2spaces, shift -,2spaces,shift -, 
2spaces,shift -,2spaces, shift -, 
2spaces, shift -,2spaces,shift -,off] 


946 


947 
10098 


1010 


19020 


1040 


1058 


1068 


1070 


10898 


1038 


1108 
1118 
1120 
1130 
1149 
1150 
1168 
1178 
1180 
1198 
1200 
1210 
1219 
1220 
1ee1 
1225 
1230 


1231 


print "Chome]”s2$s2$”L7down]” tab( 

8)”Cblu,rvs, 14spaces, home)”: f=1: 

gosub 111 

goto 338 

poke 53265,139:print "Cclr]” chr$ 
(142) chr$ (8); 

print "Ccyn,4cbm @,red,3cbm p,cyn, 
2cbm @,red,cbm p,cyn,3cbm @,red, 
cbm p,cyn,cbm @,red,4cbm p,cyn, 

cbm @,red,cbm p,cyn,18cbm @]” 

print "Cred,Sspaces,rvs,shift £,off, 
shift £] [rvs,shift £,off,shift £, 
Espaces,rvs,shift £,off,shift £,rvs, 
shift £,off,shift £,3spaces,rvs, 
shift £,off,shift £] 

print "C3spaces,rvs,shift £,off, 

shift £,cbm t] [rvs,shift £,off, 

shift £,rvs,shift £,off,shift £,rvs, 

shift £,off,shift £,rvs,shift £,off, 

shift £,cbm t,2spaces,rvs, shift %; 

off,shift £,4spaces, cbm 7]Jgegen 

print "Ccyn,3chm t,red,3cbm y,cyn, 

cbm t,red,Scbm y,cyn,cbm t,red, 

4cbm y,cyn,cbm t,red,chbm y,cyn, 

20chbm t]” 

print tab(1S)"[yel,cbm p,3spaces, 

cbm p,2spaces,cbm p,2spaces,cbm P, 

3spaces,cbm p,3spaces,cbm pl 

print tab(1B)”"[rvs,shift £,off, 

shift £,2spaces,rvs,shift £,off, 

shift £] [rvs,shift £,off,shift £] 
[rvs,shift £,off,shift £,2spaces, 

rvs,shift £,off,shift £,2spaces,rvs, 

shift £,off,shift £] 

print tab(17)”[rvs,shift £,off, 

shift £,2spaces,rvs,shift £,off, 

shift £] [rvs,shift £,off,shift £] 
[rvs,shift £,off,shift £,2spaces, 

rvs,shift £,off,shift £,2spaces,rvs, 

shift £,off,shift £] 

print tab(16)”"[rvs,shift £,off, 

shift £,rvs,shift £,off,shift £,rvs, 

shift £,off,shift £] [rvs,shift £, 

off,shift £] [rvs,shift £,off, 

shift £,2spaces,rvs,shift £,off, 

shift £,2spaces,rvs,shift £,off, 

shift £] 

print tab(16)”[Schm y,2spaces,chm y, 

©spaces,3cbm yJ C3cbm yJ Ccbm yJ 

print tab(16)”Cc)’87 klaus kobold”: 
if f=1 then f=?:goto 1212 

print tab(16)”"Ccbm 8,6doun,rvs, 

shift £,3spaces,cbm *] 

print tab(15)"[rvs,shift £,2spaces]3 

C2spaces,cbm *] 

print tab(14)"[rvs,shift £,7spaces, 

cbm *] 

print tab(18)”Cchbm 5,rvs,shift £, 

15spaces,cbm *] 

print tab(S)"[rvs,shift £,Bspaces]2 

C8spaces,cbm *] 

print tab(8)”[rvs,shift £,19spaces, 

cbm *] 3 

print "Ccbm 4,4spaces,rvs,shift £, 

27spaces,chbm *] 

print "[3spaces,rvs,shift £, 

14spaces]1[14spaces,cbm *] 

print "[2spaces,rvs,shift £, 

31spaces,cbm *,off)"”; 

poke 53265, 27: return 


rem 


auswertung ----- 

f=-®:for e=® to 15:poke v+e,0d:poke v+ 

39+f ‚6:poke 2040+f ‚292: E=-F+1:iF F=-B 

then f-® 

next :f=1:gosub 1000:s1=-1:s2=2: if 

w2e>wl then si=2:s2=1 

if wi=-w2 and w1>8 then print ” 
C2down,blu] spieler 1 und 2 waren 
gleich gut.[down)”:goto 1249 


Listing zu „Jagd auf Willi". 


LEERE TER Ah, 


3356 

572 
3228 
5954 


8671 


4117 


7293 


2477 


4034 


4026 


4252 


3378 
4865 
1860 
1701 
1617 
16808 
1489 
1476 
1719 
1817 
1943 
1136 


6956 


4238 
5947 


1232 


1235 


1236 


1248 
1245 


1258 


1255 
1268 
1261 


1270 
1275 


1288 


1285 
12908 
1300 


1318 


1508 
1518 
1528 
1538 


1535 
1540 


1558 
15698 
1578 
1588 
1598 


1698 
1619 


69095 
698019 
60015 


699298 
60025 
60038 
60035 
60040 


60945 
60050 
60055 


60060 
60065 
60070 
60075 
690080 
60085 
69939 
60095 
69100 
60105 
60110 
60115 
60120 


if wi=® and w2=® then print ”LC2doun, 
blu] beide spieler sind noch zu 
schlecht ‚Cdown]”:goto 1318 

print "C2down,blu] spiseler”s1"hat 
gewonnen..... 


print tab(7)”...spieler”s2"muss noch 
ueben !!! 

print ”Ccbm 7,2down] spieler 1 hat”; 
if wi=® then print ” leider keinen 
willil7spaces]Igefangen.":a=1:goto 
1270 

if wi=1 then print "” einen willi 
gefangen.[down]”:goto 1268 

print wi"willis gefangen.C[Cdown]” 


b=1:for a=1 to wi*2 step ?:poke v+a, 
188:poke v+a-1,b*30:b=b+1:next 
print "Cred,3down] spieler 2 hat”; 
if w2=® then print ” leider keinen 
willi[l7spacesIgefangen.”:goto 1318 
if w2=1 then print ” einen willi 
gefangen.”:goto 1290 

print w2”’willis gefangen.” 


b=1:for a=a to (wi+w2)*2 step 2:poke 
v+8,227:poke v+e-1,b*38:b=b+1:next 
poke v+21,255:poke 198,0:wait 188,1: 
poke v+21,8:goto 18 


rem 4/8 richtungen ----—- 


poke v+21,0:f=1:gosub 1888: print 
tab(17)”Ccbm 6,3downlwollt [grnlihr 
Cchbm 6Jin [Cgrn]4 Ccbm GJoder” 


print tab(19)”Cdown,grn]J8 [Ccbm 6] 
richtungen [grnJlenken[chm 637” 
for e=® to 15:poke v+s,ple):next : 
for e=-® to 7 step 2:poke v+39+a,2 
di=®:next :poke v+21,255 

j"peek (56320) 

if jJ=-126 then di=8:poke v+21,255 
if jJ=-125 then di=1:poke v+21,85 
if j=111’then poke v+21,8:a=1:goto 
1618 

goto 1568 e 
for e=® to 15 step 2:poks v+e,a*3ß: 
poke v+te+1,8:a=-a+1:next :return 
data 100,225,130,205,150,175,130, 
145,100,125,790,145,50,175, 70,205 
rem Flasche 

data 0,0,0,63,255,252,63,255,252 
data 63,255, 252,63,255,252,63,355, 
852 

data 63,255,252,63,255,252,63,255, 
252 

data 63,255,252,63,255,252,63,255, 
es2 

data 63,255,252,63,255,252,63,255, 
e52 

data 63,255,252,63,255,252,63,355, 
252 

data 63,255, 252,63, 255,252,63,355, 
852 

rem halbe Flaeche 

data 8,0,0,63,255,252,63,255,248 
data 63,255,240,63,255,224,63,255, 
192 - 

data 63,255,128,63,255,0,63,254,0 
data 63,252,0,63,248,0,63,240,0 
data 63,224,0,63,192,0,63,128,0 
data 63,0,0,62,2,0,60,0,0 

data 56,0,0,48,0,0,32,0,0 

rem willi 

data 2,1,128,0,3,128,0,7,0 

data 8,14,0,1,252,0,7,248,0 

data 31,246,0,63,2380,9,127,222,60 
data 127,230,66,255,6,1380,254,1,2 
data 252,0,4,122,16,9,50,40,48 
data 84,39,194,212,32,1,40,19,252 
data 212,14,0,98,3,90,65,254,0 
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Gebrauchs- 
Anweisung 


l. Anzeigentext in die vorgedruckten 
Zeilen der Karte schreiben — maxi- 
mal 6 Zeilen mit Anschrift oder Te- 
lefon-Nummer (pro Buchstabe, 
Satzzeichen, Wortzwischenraum = 
1 Kästchen). 

. Rubrik und Bereich ankreuzen, 
Adresse auf der Rückseite der Kar- 
te angeben. 

. Datum und Unterschrift nicht ver- 
gessen 

. Karte zusammen mit 5-DM-Schein 
in Umschlag stecken, 

. Umschlag zukleben, ausreichend 
frankieren und abschicken an: 
CW-Publikationen 
— RUNboard — 

Postfach 40 04 29 
8000 München 40 

. Die Anzeige erscheint im nächst- 

möglichen RUNboard. 


Ich habe die 
Gelegenheit 


Ichhabea 

Gelegenheits-Anzeige im RUNboard 
bestellt. Sechs Zeilen zum Taschen- 
geld-Tarif von nur DM 5.— inkl. ges. 
Mehrwertsteuer. Die DM 5.— habe 
ich der Bestellung beigelegt. 


gmo 


Ichhabe am beider 


RUN-o-thek________Diskette(n) 
mit den Programmen aus RUN- 


Ausgbe_________bestellt. 
Preis pro Diskette: DM 21,80 plus 
DM 3,— Versandkosten = DM 24,80 


© Bezahlt mit V-Scheck-Nr._____ 
Konto-Nummer 
BLZ/Geldinstitut 

© Ich bezahle per Nachnahme. 
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CORANGICES 
RE 
IN Run Run Run Run Run eronnsern 


R 
un Run Run Run Run Run RunR 
Run Rur UNR 
un Run Run Run Run Run RI 


Run KU RUN RUN 
RUN Run Run RUN RUR RUN RI 


RU 
NnRUN Run Run Run Run Run RI 


Sie alle lesen 
RUN regelmäßig. 


Wann zählen 
Sie dazu 


RUN-Leser verlieren nie ihr Gesicht. Denn RUN 
bietet Computer Know-how vom Besten. Monat 
für Monat brandaktuell. Neueste Informationen 
aus der ganzen Welt. Hauptthemen: C64, 128 
und Amiga. Anspruchsvolle Listings, Tips und 
Tricks für’s Programmieren, Tests und Kauf- 
empfehlungen — auch für Hardware. Jeden 


Monat neu. Im 'ıfı) 

RUN regelmäßig lesen, heißt Profil gewinnen. mit rund 

Und 12 Monate im Jahr top-informiert sein. Preisvorteil und 
ee Also: Gleich nebenstehende Abokarte ausfüllen en . 
Th RD und heute noch absenden! zuverlässig frei Haus. 


PUBLIKATIONEN 


sen Praxis Listing 


Bessere Übersicht 
bei Basic-Programmen 


System: C64/C128/C16 
Art: Utility 
Sprache: Basic/Assembler 


REM-Zeilen machen ein Basic-Pro- 
gramm lesbarer. Ist ein Programm 
sehr lang, so wäre es von Vorteil, 
wenn alle REM-Zeilen vom übrigen 
Text invers hervorgehoben werden 
könnten. Tippt man nach der REM-An- 
weisung in Änführungszeichen RVS 
ON und den Kommentar ein, so führt 
dies nicht zum gewünschten Erfolg. 
RVS ON erscheint zwar im Speicher 
mit dem Code 18 und beim Auflisten 
als inverses R, der übrige Text wird 
jedoch mit dieser Vorgehensweise 
nicht invertiert. Es gibt eine Möglich- 
keit REM-Zeilen zu invertieren. Dazu 
muß man die interne Codierung einer 


„REM-Invers“ gibt 
Basic-Programmierern 
die Möglichkeit, REM- 


Kommentare revers auf 
dem Bildschirm darzu- 
stellen. 


sich für den C64 aus dem Zeilenauf- 

bau: 

1 A=2053:E=PEEK(45) +256*PEEK(46) 

2 C=PEEK(A):IF C=143THEN POKE 
A+1,18 

3IFC=0 THEN A=A+4 

4IF A=E THEN END 

5A=A+1:GOTO2 

Für C16 oder C128 sind die Adressen 

A und E passend zu ändern. 


(RVS ON) geschrieben. Soll die Inver- 
tierung rückgängig gemacht werden, 
so ist der Code 32 zu poken. 

Zeile 3: 

Hier erfolgt der Test auf ein Nullbyte 
(Zeilenende). Wenn ja, so wird die 
Adresse um den erforderlichen Offset 
erhöht, um Linkpointer und Zeilen- 
nummer der folgenden Zeile zu über- 
springen. 

Zeile 4: 

Ist das Programmende erreicht? 
Wenn nicht, dann in Zeile 5 die Adres- 
se erhöhen und das nächste Byte te- 
sten. 

Normalerweise beginnt ein Basic-Pro- 
gramm nie mit einer Zeilennummer 
unter zehn. Die Basic-Version von 
REMINVERS kann daher vor das zu 
behandelnde Programm gestellt wer- 
den. Dieses Mini-Programm hat je- 


Basic-Zeile kennen, Jede Programm- EN EEE 1 REN 

zeile beginnt mit der Information über 1128 rem reminvers - version c64 

die Startadresse der nächsten Zeile. 128 rem ------------------ ------- 

Das ist der sogenannte Linkpointer 138 s=®: for i-B2B to 336 1608 

(auch Koppeladresse genannt). Die 148 read d:s=s+d:poke i.d:next 1548 

Abspeicherung erfolgt im Adreßfor- 158 if s<>11281 then 199 1495 

mat, das heißt Low-/Highbyte. Die 168 print ”[Cclr,down] sys8B28,1 --> [rvs] 2256 

nächsten beiden Bytes enthalten die rem” 

Zeilennummer. Erst danach folgt der 178 print ”Cdown] sys828,80 --> rem” 1723 

eigentliche Programmtext, wobei Ba- -_ er EEE Re 

ee pesiercdte 200 data 32,253,174,32,158,183,224,0 ası1 

Token. REM hat den Code 143. Von 210 data 208,7,169,32,133,251,76,85 3357 
R R { 220 data 3,224,1,208,21,169,18,133 2601 

dieser Umwandlung bleiben alle J Re ee en 

Texte unbetroffen, die innerhalb von 230 data 251,162,5,160,3,32,157,3 2616 

# a 248 data 208,33,136,208,6,169,8,141 2859 

Anführungszeichen stehen, alle Daten er 2 282 ze 

en ana DATA und alle Ki 250 data 159,3,96,32,161,3,32,157 3849 

tare nach REM. Jede Zeile wird dann 260 data 3,240,239,152,24,105,5,168B 2491 
itei N lc RN hl 270 data 32,161,3,136,192,4,176,248 3038 

ME PIE ULCO0S abgeschlossen, 280 data 32,157,3,201,143,240,6,32 2614 

Dieser Aufbau wiederholt sich bis zur 230 data 161,3,76,89,3,32,161,3 2938 

letzten Zeile, der dann zwei weitere 300 data 173,159,3,141,150,3,165,251 3232 

Nullcodes folgen, welche das Pro- 318 data 157,0,8,32,161,3,76,89 2438 

grammende markieren. Zusammen 320 data 3,189,0,8,96,232,240,1 2520 

mit dem Nullcode für das Zeilenende 330 data 96,238,159,3,96 1508 

sind das also drei aufeinanderfolgen- 

Do NEAIER Zeile 1: doch einen Nachteil, der sich beson- 


Die Lösung des Problems ist einfach: 
Mit Hilfe eines Monitors schreibt man 
nach jedem REM-Token den Code 18 
in den Speicher. Das hat zur Folge, 
daß nun beim Auflisten des so behan- 
delten Programmes alle REM-Zeilen 
invers erscheinen. 


Bei vielen REMs kann das eine mühe- 
volle Arbeit werden, die man daher 
besser dem Computer überläßt. Der 
Algorithmus für das Programm ergibt 
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Zum Basic-Beginn wird 5 addiert, wo- 
durch Linkpointer und Zeilennummer 
übersprungen werden. Damit wird 
die Startadresse A für den C64 gleich 
2053 (für C16/Plus4 ist sie auf 4101 zu 
ändern). Anschließend wird das Pro- 
grammende E berechnet. 

Zeile 2: 

Das Byte, auf das A zeigt, wird geholt 
und auf REM getestet. Wenn ja, dann 
wird in das folgende Byte der Code 18 


ders bei langen Programmen aus- 
wirkt: Es ist naturgemäß sehr lang- 
sam. 

Das läßt sich nur mit einem Maschi- 
nenprogramm beheben und daher 
wurde auch ein solches geschrieben. 
Hier ist der Algorithmus ein wenig an- 
ders. Die Adresse des Programm- 
endes muß hier nicht bekannt sein, 
sondern wird mit einem Test auf drei 
aufeinanderfolgende Nullen festge- 


308 za === -- == 22-500 2 
118 rem 
SEEN REP yet megrshltelgn Segler Ser gerne trade > 


Wer seinen Personal Computer 


138 s=B: for i=-828 to 336 1688 R 
140 read d:s=s+d:poke i,d:next 1548 professionell nutzen will, sollte 
150 if s<>10958 then 190 1317 Ber wer. an ruggednan 
168 Bere ECclr,down] sysB28,1 >[rvs) 2016 tion ‚statt Insellö gi Und so 
170 print "Ldown] sys828,8 --> rem” 1723 wird’s gemacht: 
1808 end 128 
198 print ”eingebfehler!” 1476 oO 
208 data 32,145,148,32,132,157,201,0 2B04 
210 data 208,7,169,32,133,216,76,85 3405 
220 data 3,201,1,208,21,169,18,133 2473 
230 data 216,162,5,160,3,32,157,3 2640 Mikro- 
240 data 208,33,136,208,5,169,16,141 3064 elektronik 
250 data 159,3,396,32,161,3,32,157 3043 für  Füh- 
260 data 3,240,239,152,24,105,5,168B 2491 Fire Leitfad 
270 data 32,161,3,136,192,4,176, 248 3030 an 
288 data 32,157,3,201,143,240,6,32 2614 en Einkätz von 
2908 data 161,3,76,89,3,32,161,3 2938 Mikros in Produk- 
S10 Haca 107 0.26 se.1ar a oe nungen rk 
ata , 7 ’ , ’ ’ ’ ’ “ . . = 
320 data 3,189.0,15,96,232.240,1 2235 Bestell-Nr.: CW M1$-, Preis: DM 111, 
338 data 96,238,159,3,96 1598 Oo 
ODER BIN re terms rleee Eee een 
118 rem reminvers - version c128 N 
IE0 PR RE TIR re Software- a \ 
130 s=®:for i=3872 to 3174 1698 Enginee- Ag! 
148 read d:s=s+td:poke i,d:next 154B ring in der 
150 if s<>9608 then 190 1659 Praxis. Das » 
168 print ”[clr,down) sys39872,1 --> 2446 Bertelsmann 7 
CrvsIrem” Modell: Auch 
178 print ”[Cdown]) sys3072,®0 --> rem” 1959 wer für Mikros 
180 end 128 oder PC Program WU 
198 print ”eingabefehler!” 1875 an die Disziplin des 
PAR data 201,0,208,7,169,32,133,251 2988 / 
210 duta 76,19,12,201,1,?@8,21,169 2363 Bestell-Nr.: CW B095, Preis: DM 118, - 
220 datu 18,133,251,162,5,160,3,32 2752 
238 data 91,12,208,33,136,208,6,169 2848 o 
240 data 28,141,93,12,96,32,95,12 2517 
250 data 32,91,12,249,239,152,24,105 3153 
260 data 5,168,32,95,12,136,192,4 2485 . 
278 data 176,248,32,91,12,201,143, 240 2946 COUPON: 
288 data 6,32,95,12,76,23,12,32 2672 
&£30 data 95,12,173,93,12,1417,84,12 2497 Ich bestelle ___ Ex. Mikro-Elektronik für Führungskräfte 
388 data 165,251,157,0,28,32,95,12 2856 
310 data 76,23,12,189,0,28,96,232 2809 = E REEREENIEERNE ONE RER 
328 data 240,1,96,238,93,12,96 2741 PFORRINRERSD SE KAIRO IDEEN 
Name Vorname =, 
stellt. Ansonsten entspricht der Algo- ADR=3072 einzusetzen. 
rithmus der Basic-Version. Bei allen Modellen muß das Basic-Pro- r 
Das Programm liegt in drei Versionen gramm an der normalen Startadresse hie 
vor: als Basiclader für C16, C64 und beginnen. 
C128,. Jetzt fehlt noch die Befehlsse- Es ist allgemein üblich, daß man nach | Stae 
quenz: einem REM ein Leerzeichen läßt. Die- 
ses wird hier vom Invertierungscode | 52 nr Unterschrift 


SYS ADR,1 invertiert alle REM-Zeilen 


SYS ADR,0 bringt die REM-Zeilen 
wieder in den Normalzustand. 


Beim C16/Plus4 und C64 ist für 
ADR=828 und beim C128 ist für 


RE Re, 


überschrieben. Ist nach dem REM 
kein Leerzeichen, so überschreibt 
REMINVERS das erste Zeichen des 
Kommentars. Auf diese Eigenheit muß 
bei der Anwendung geachtet werden. 


*Bestellungen aus dem Ausland werden nur gegen 
Vorauskasse erledigt 


CW € -Edition, Rheinstraße 28, 8000 München 40 


Immer wieder erreichen 
uns Anrufe von verzwei- 
felten Bard’s Tale II- 
Spielern. Martin Metzger 
hat jetzt für sie Lösungs- 
hilfen und Lagepläne zu- 
sammengestellt. 


Um die Prinzessin zu befreien, darf 
die Party nicht mehr als sechs Mitglie- 
der haben, da man in den Dungeons 
noch den „Winged one“ aufnehmen 
muß, um die beiden Schluchten in Eta- 
ge 4 zu überwinden. Wenn man drü- 
ben ist, sollte man „The Winged one“ 
wieder „droppen", um Platz für die 
Prinzessin zu haben. Um die „Double 
Doors“ zu öffnen, muß man seinen Bar- 
den den Song 7 spielen lassen. 

‚In der 3. Etage muß man erst die Fra- 
ge von „Mouth“ (14;3) beantworten, 
um die Wand (1;19) in eine Tür zu ver- 
wandeln, um so zu „Mouth 2" (1;18) ge- 
langen zu können, hinter dem die 
Treppe liegt. 

Um durch die Gates in den Städten zu 
kommen, braucht man den „Master 
Key“, den man in den Tombs findet. 
Mit den Karten dürfte es nun nicht 
schwer sein, die Prinzessin zu finden 
und mit der Belohnung von zirka 
400 000 Experience-Points in den an- 
deren Dungeons weiter zu kommen. 


Dungeon |) 

l) Mouth: Turn back adventures; you 
are not the first and you won't be the 
last to attempt to save the princess 

2) The blood-stained wall shows that 
many battles have been fought here 
3) Beware the creature that lies in the 
middle of darkness 

4) There are some scribblings on the 
wall „The princess lives" 

5) Gurdian 

6) The door here looks as if something 
was trying to get out 

Z) In areas unpassable seek en- 
trance by Phase Door to learn the se- 
cret ofthe double doors 

8) In the room beyond the dark lies 
the bite behind the dark to avoid a 
gruesome fate line your arrow true 
and straight 

9) Mouth: Below you now, thrice count 
the floors, play the last for the double 
doors The Dark Domain-Dungeon 2. 
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Bard's Tale Ill 


Dungeon 2) 

l) Srawled on the wall is a message: 
„Mangar was here" 

2) A sign on the wall says „Monster 
Reformatory“ 

3) 1 Medusa 

4) Ask the bearded one of the tombs 
5) „Samen Nghoint“ 

6) One level down Map wall and door 
look toward the corners and read the 
four 

7) The winged creature 


Dungeon 3) 

l) Seek the four cornered letters 

2) The winged one can traverse the 
gap 

3) Stairs straight ahead 

4) The answer to the double doors lies 


F / hidden above 
5) A corpse is here with a tombstone 
EEE Dose marked: Hotwind 
4 6) Mouth: Look at the spells of Sorce- 
Melle 11 1516 5 | rous kind. Who’s the Master of the 
A w mind? (Mangar) 
T 7) Mouth: Speak the word to pass by: 
5 (Pass) 
Dungeon 4) 
The Dark Domain-Dungeon 3. l) A deep chasm can beseen to the | 
north | 


2/3) There is a chasm ahead blocking 
any further progress 

4) You'’ve entered the thorne room of 
the Dark Lord. He doesn't sound plea- 
sed to see you, „Destroy these scum!", 
he screams. His friends advance on 
you hungrily (1 Dark Lord (10'), 3 Dae- 
mons (40')) 

5) The Princess 


Spellpointsabzug 
Antimusik 

Trap 

Wirbelfeld 

Darkness 

Antimagic 
Hitpointsabzug 

Up 

Down 

Geheimtür 

Tür 

One-way-Tür 

Teleporter 

Teleportziel 

Einseitig sichtbare Wand 
oder Tür 

Spell points regeneration 
Double Doors 
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The Dark Domain-Dungeon 4. 


BE NOHNET NR ANETTE 


Spiele 


Straßenplan von Ephesus. 


Lageplan 

= Leere Hütte 

= Tempel 

= Tangramayna 

Ephesus 

Philippi 

= Colosse 

= Corinth 

= Thessalonica 

= „Name this Crypt to enter it“ 
(Grey Crypt) 

8 = The Sage 

9 = Welcome my friends, a stone 

man exclains. My home is, of course, 

your home. Stay as long as you like. 

He then falls asleep. 

10) Fanskar's Fortress (Entrana) 


Non PowweH4Hr 
nl 


Straßenplan von Colosse. 


MUB EV TORRENTS FIELEN 


Straßenplan von Philippi. 


Städtekarten 


Symbole in den Städten 


= Bank 

= Adventures Guild 
= Taverne 

= Review Board 
Equipment Shop 

= Spielbank 

= Tempel 

= Dungeon Entrance 


or +H4Qa uw 
I} 


regeneration 


= Roco's Spell-points- 


Stadt 2: Ephesus 
l) Gate 


Stadt 3: Philippi 


Stadt 4: Colosse 
1) Tell me things you knuckleheads to 
splitt the rock. 


Stadt 5: Corinth 
1) Gate 
2) Oscon’s Fortress 


Stadt 6: Thessalonica 

l) A voice says: „Where steel is 
bright and blood runs red walk down 
the stair to the Maze of..." (Dread) 
Eingang zu weiteren Dungeons 


Straßenplan von Corinth 
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Straßenplan von 
Mega ro 


Vom Comic zum 
Adventure 


Ein Abenteuer besonderer Art bietet 
Infogrames den C64-Besitzern mit 
„Reisende im Wind". Das Spiel ba- 
siert auf dem gleichnamigen Comic- 
Strip von F. Bourgeon. 

„Reisende im Wind“ wurde mit dem 
meistbegehrten Preis für Comics, 
dem „Großen Preis von Angouleme" 
ausgezeichnet. Francois Bourgeon hat 
die Nutzung seines Werkes für ein 
Spiel nur unter der Bedingung akzep- 
tiert, daß der Stil von Zeichnung und 
Text genau wiedergegeben wird. 

Im Gegensatz zum „passiven“ Miterle- 
ben im Comic greift man im Spiel aktiv 
in das Geschehen ein. Im Verlauf der 
Geschichte schlüpft der Spieler in die 
Rolle aller „Handlungsträger", trifft 
Entscheidungen für sie und bestimmt 
so den Verlauf der Handlung. 
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Der Abenteurer wird in die Zeit zum 
Ende des 18. Jahrhunderts zurückver- 
setzt. Der Sklavenhandel zwischen 
der Bretagne, Afrika und Amerika er- 
lebt seine Blütezeit. Hoel, ein bretoni- 
scher Matrose, muß Frankreich flucht- 
artig verlassen, da er fälschlich we- 
gen Mordes gesucht wird. Isa, eine 
Abenteuerin, entpuppt sich als Kom- 
tesse, deren Adelstitel gestohlen und 
mißbraucht wurde. Der Spieler soll 
Isa helfen, ihren Liebsten Hoel zu ret- 
ten und ihre Ansprüche auf den Adels- 
titel geltend zu machen. 


Die Spielsteuerung ist relativ einfach. 
Der Bildschirm ist in drei Zonen unter- 
teilt: ein grafischer Teil, ein Porträt- 
Fenster und ein Text-Fenster. 


Im grafischen Teil erscheint jeweils 
das Bild einer von zehn Episoden. 
Durch Anklicken bestimmter Berei- 


Leichte 
Bedienbarkeit 
wird durch 
Fenstertechnik 
erreicht 


che in der Grafik wählt der Spieler die 
Charaktere, die er darstellen will. Das 
Foto der gewählten Person erscheint 
im Porträt-Fenster, die Gedanken 
oder Gespräche im Text-Fenster. So 
erlebt der Spieler wie in einem Comic 
die Handlung mit. Muß sich ein Cha- 
rakter für eine Aktion entscheiden, 
greift der Spieler ein. Dafür werden 
verschiedene Reaktionen im Text- 
Fenster vorgegeben. Wählt man eine 
falsche Reaktion, gerät die Handlung 
im weiteren Verlauf des Spieles in 
eine Sackgasse. „Reisende im Wind" 
gliedert sich in zehn einzelne Epi- 
soden, die jeweils nachgeladen wer- 
den. 

Mit seinen hervorragenden Gafiken, 
umfangreichen Spielsituationen und 
der gelungenen Comic-Umsetzung 
gehört „Reisende im Wind“ zu den 
Highlights unter den Spielen des Jah- 
res 1987. 


Programmname: Reisende im Wind 
en ee AND ae 


Idee/Story: 

Grafik/ Animation: 
Sound/Sprache: 
Schwierigkeitsgrad: 


Spielspaß: 
Gesamteindruck: 


In der Höhle des Löwen 


Computerspiele ä la „Commando er- 
freuen sich nach wie vor großer Be- 
liebtheit. Aus dieser Gattung von 
Kriegsspielen stammt „Into the Eag- 
le's Nest“. Ort des Geschehens ist 
eine labyrinthische Burg, deren vier 
Stockwerke kurioserweise nur über 
einen Lift zu erreichen sind. Zunächst 
muß ein Liftpaß besorgt werden. Die- 
ser Paß ist einer der Gegenstände, 
die im Verlauf des Spiels aufzuklau- 
ben sind. Ziel ist die Erfüllung eines 
selbstgewählten Auftrags. Dabei kann 
man sinnreich zwischen „Blow up the 
Castle" und „Rescue the Prisoner“ 
entscheiden. Zahlreiche Schlüssel- 
chen für ebenso viele Türchen sind zu 
finden. Halsketten, Edelsteine, Ge- 
mälde und Vasen bringen zusätzliche 
Punkte ein. 


Durchgeführt wird die Mission mit der 
Waffe in der Hand. Wo Taktik und Ge- 
schick nicht weiterhelfen, wird eben 
— wie in allen vergleichbaren Spielen 
— 'drauflosgeballert'. Munition muß 
immer wieder aufgenommen werden. 
Die Spielfiguren besitzen nur ein Le- 
ben. Nach 50 Treffern des Gegners ist 
... 'Pustekuchen’' — „You are dead" 
heißt es da lakonisch auf dem Moni- 
tor. Keine Frage, daß ein frühzeitiger 
Tod vor Beenden der Mission zu ver- 
meiden ist. Dies geschieht durch die 
Aufnahme von Nahrungspaketen 
(cold food), die ab und zu herumlie- 
gen. Hat man das Glück, auf einen 
Erste Hilfe-Kasten zu stoßen, werden 
sämtliche Verwundungen geheilt. Die 
rettenden Kästen sind jedoch nur 
dünn gesät! Gegnerische Soldaten 
muß man immer zweimal treffen, was 
die Durchführung der Aufgaben zu- 
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Harter Job für 
angehende Söld- 
ner: Die Gefan- 
genenbefreiung 
im Actionspiel 


„Into the Eagle’'s 
Nest". 


sätzlich erschwert. Bei Sprengstoff 
und Munition sollte man vorsichtig 
sein — ein überflüssiger Schuß und 
die Bude fliegt samt Spieler in die Luft. 
Im Prinzip ist diese Spielidee nichts 
Neues. Immerhin benötigt 'der kleine 
Soldat’ aber neben dem reinen 
'Drauflosballern’ auch ein wenig Hirn 
um die gestellte Aufgabe zu lösen. 
Die Grafik ist gut. Das Scrolling beim 
Bildschirmwechsel ist jedoch zu ruck- 
haft und irritiert während des Spiels. 
Der Sound unterscheidet sich nicht 
von den bei diesem Spieltyp üblichen 
Schußgeräuschen. Für Liebhaber von 
Rambo-Variationen ist „Into the. Eag- 
le's Nest" ein unbedingtes Muß und 
eine echte Herausforderung. Da die 
Nation der sich bekämpfenden Solda- 
ten nicht auszumachen ist, bleibt viel 
Raum für Fantasie... 

(Thomas Kastura) 


Besonderheiten: 
Hersteller: 
Preis: 

Vertrieb: Nicht in Deutschland erhältlich 


8,95 Pfund 


C16/Plus4-Version von 
Operation Hawaii gelöst 


Adventure-Adaptionen, die vom C64 
auf C16 und Plus4 umgesetzt werden, 
stimmen in den Lösungswegen nicht 
mit den Vorbildern überein. Für die 
C16/Plus4-Version von Operation Ha- 
waii erreichte uns ein Lösungsvor- 
schlag: 

Geh Strand — Untersuche Strand — 
Nimm Seil — Geh Ost — Geh Gäste- 
haus — Geh Süden — Öffne Schrank — 
Sieh Schrank — Nimm Fernglas — 
Sieh Schrank — Nimm Fotoapparat — 
Geh Nord — Untersuche Telefon — 
Nimm Hörer — Sag Hallo — Sieh Ka- 
min — Nimm Schlüssel — Öffne Tür — 
Geh Ferrari — Sprich Josef — Mäh Ra- 
sen — Geh Ferrari — Sieh Fach — Gib 


el ee 


Schlüssel — Gib Wagenschlüssel — 
Nimm Lutscher — Fahr — Fahr Club — 
Untersuche Club — Sprich Dame — 
Fahr — Fahr Stadt — Gib Seil — Kletter 
Seil — Untersuche Dach — Geh Tür — 
Untersuche Schreibtisch — Sieh Notiz- 
block — Sieh Schublade — Nimm Kar- 
te — Sieh Karte — Geh Dachluke — 
Kletter Seil — Fahr — Fahr Flugplatz — 
Untersuche Helicopter — Geh Büro — 
Miet Helicopter — Gib Fotoapparat — 
Geh West — Geh Helicopter — Flieg 
Maui — Sieh Kabine — Nimm Fall- 
schirm — Sieh Fernglas — Spring Heli- 
copter — Geh Nord — Geh Nord — 
Geh Ost — Geh Ost — Sieh Dorf — 
Nimm Boot — Gib Lutscher — Nimm 
Boot — Geh West — Geh West — Geh 
Süd — Geh Süd — Geh West — Geh 
West — Geh West — Gib Fallschirm — 
Gib Boot — Fahr Boot — Sieh Hütte — 


Geh Dach — Geh Schornstein — 
(Michael Krumbiegel) 


Sprich Mann 


Rem 141 


Spiele 


Ein Oldi hüpft 
wieder 


Als vor zwei Jahren das Spiel „Thing 
on a Spring" erschien, war Gremlin 
Graphics ein großer Wurf gelungen. 
Nun liegt mit „Thing' bounces back" 
der zweite Teil des Spieles vor 


In „Thing on a Spring" ging es darum, 
in einer unterirdischen Fabrik ver- 
schiedene Puzzelteile zu finden und 
zusammenzusetzen, die einen Hinweis 
auf das Versteck des Bösewichtes, 
den Toz Goblin, geben. In „Thing 
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bounces back" steuert man wie im 
ersten Teil „das Ding". Diesmal muß 
man die Gefahr einer Spielzeugfabrik 
auf sich nehmen und fit, wie das Ding 
ist, passiert das in einer sehr flotten 
und detailreichen Grafik. 


Doch es gibt wieder verschiedene 
Außerirdische, die dem Ding sehr 
wichtiges Öl klauen und Wasser über 
die Feder schütten, damit sie verro- 
stet. Außerdem muß man noch neben- 
bei vier Gegenstände finden, um eine 
Maschine zu stoppen, die Außerirdi- 
sche produziert. Durch Rohre gelangt 
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In der Spielzeug- 
fabrik muß man 


sich in einem La- 
byrinth aus Fließ- 
bändern zurecht- 
finden. 


man, mehr oder minder durch Zufall, 
in die einzelnen Fabrikationshallen. 
Die zu findenden Gegenstände sind 
eine Diskette, eine Kassette, ein ROM 
und ein Programmlisting. Nachdem? 
man alles hat, ist die Maschine auto- 
matisch gestoppt und das Spiel zu 
Ende. Technisch gesehen springt das 
Ding erheblich zurück. Die Musik hört 
sich wie eine mißratene Disco-Version 
des ersten Teiles an. Das Ding-Sprite 
hat seine sehr elegante Animation fast 
gänzlich verloren und die Spielidee ist 
genau die selbe geblieben. 

(Dominik v. Nostitz) 


Programmname: Thing bounces back 


Idee/Story: 

Grafik/ Animation: 

Sound/Sprache: 

Schwierigkeitsgrad: 

Spielspaß: 

Gesamteindruck: 

Spielerzahl: l 
Besonderheiten: keine 

Hersteller: Gremlin Graphics 


Preis (Kass./Disk; k.A. 
Vertrieb: k.A. 


Kampf der Bälle 


Der böse „Terry Ball" hat „Lover 
Ball", „Eddy Ball“, „Glow sall" und 
„No Ball" in seinem gefahrenvollen 
Reich gefangengenommen. Die 
Freunde sollen befreit werden, wobei 
man sechzehn Verteidigungszonen 
bewältigen muß. Am Ende jeder vier- 
ten Zone kann man einen Freund den 
Klauen Terry Balls entreißen. 

Als Wiedersacher stellen sich dem 
Spieler umherwandernde, blinkende 
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Gegenstände entgegen, die garstige 
Köpfe, Roulette-Räder oder Mikrowel- 
lengrille sein können. Ab und zu tau- 
chen auch sogenannte „Power Disks" 
auf, über die Waffen wie „Turbo 
Boost“, „Horizontal Laser" etc. aufge- 
nommen werden können. Die sieben- 
undzwanzigste und letzte „Power 
Disk“ ist die ultimative Waffe, der 
„Rainbow Ripple Laser", Mit ihm kann 
man den düsteren Machenschaften 
Terry Balls ein für allemal ein Ende 
setzen. 


Viele Gegner 
stellen sich dem 


Ball entgegen. 


„l, Ball" ist zwar eines der üblichen 
Schließspiele in angeblich neuem Ge- 
wand, besitzt jedoch eine attraktive 
Grafik und einen sehr guten Sound. 
Die Joysticksteuerung ist zu empfind- 
lich, wodurch man ziemlich lange auf 
ein erstes Erfolgserlebnis (Durchtflie- 
gen der ersten Spielstufe) warten 
muß. Doch wer diese Art Geschick- 
lichkeitsspiele liebt, wird nach einer 
entsprechenden Übungsphase an ‚I, 
Ball" sicher seine Freude haben. 
(Thomas Kastura) 


Programmname: I, Ball 
Idee/Story: 

Grafik/ Animation: 

Sound/Sprache: 


Schwierigkeitsgrad: 


Spielspaß: 


Gesamteindruck: 


Spieltyp: Schießspiel 
Spielerzahl: 1 
Besonderheiten: keine 

Hersteller: Firebird Software 
Preis: k.A. 

Vertrieb: k.A. 


Die bösen 
Außerirdischen 


‚schlagen wieder zu. Diesmal ge- 
lingt es fremden Invasionstruppen, ein 
Loch im Raum-Zeit-Gefüge zu schaf- 
fen, durch das ganze Planeten in frem- 
de Galaxien geschleudert werden. 


Doch der einsame Held Rhett Dexter 
hat die Gefahr der Lage erkannt und 
kurzerhand den neuesten Interstellar- 
Jäger der World Corporation gestoh- 
len. Mit ihm muß er neun sogenannte 


Warp-Feldgeneratoren auffinden, die 
das Loch verschließen. Natürlich wol- 
len das die Invasoren verhindern, und 
natürlich schießt Rhett Dexter alles 
ab, was ihm vor seine Shuttle-Laser 
kommt. Aber der gute Rhett hat nur 30 
Minuten Zeit — ein unangenehmer 
Countdown, der durch Treibstoffman- 
gel oder Verlust des Schutzschildes 
schon ein vorzeitiges „Game Over" 
finden kann. 

Bei der Erfüllung der Mission hilft 
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dem Piloten ein galaktischer Kompaß, 
ein Radar-Schirm und eine Anzeige, 
wie viele Generatoren er schon gefun- 
den hat. Eine Treibstoff- und eine 
Schutzschirmanzeige sowie eine 
Countdown-Uhr bilden den Rest des 
übersichtlichen Cockpits. Nach dem 
Abschießen aller Feindschiffe eines 
Sektors (es gibt 256 Sektoren!), kann 
man Auftanken und Reparaturen vor- 
nehmen lassen, indem eine Viereck- 
Vektorgrafik durchflogen wird. Das 
Loch selbst befindet sich im Zentrum 
des Kompasses. Nach kurzer Gewöh- 


Im Zweispieler- 
Modus wird das 


Text-Fenster zur 
Anzeige des 
zweiten Raum- 
schiffs benutzt. 


nung kann die Joysticksteuerung 
durchaus befriedigen. Die Musik ist 
abschaltbar, Sound nicht vorhanden. 
Man kann zu zweit spielen — gegen- 
einander oder miteinander. Größtes 
Minus ist die hoffnungslose Grafik der 
Raumschiffe, die an verunglückte Pa- 
pierflieger erinnert. 

Trotz guter Ansätze lassen die Minus- 
punkte Dogfight in der Bewertung 
nicht über den Durchschnitt heraus- 
kommen. (Thomas Kastura) 


Übersichtliche 
Bildschirmgestal- 
tung hilft beim 
Spielen. 


Wer seinen Personal Computer 
professionell nutzen will, sollte 
die Leistung des Rechners nicht 
blindlings vergeuden: Integra- 
tion statt Insellösung! Und so 
wird’s gemacht: 


ist ein Leitfaden 
zum wirtschaftli- 
chen Einsatz von 
Mikros in Produk- 
ten und Verfahren. 


Bestell-Nr.: CW M19-2, Preis: DM 111, - 


Bertelsmann /f 
Modell: Auch 

wer für Mikros 

oder PC Program- 

me schreibt, braucht die Disziplin des 
Software-Engineers. 


Bestell-Nr.: CW B09-5, Preis: DM 118, - 


oO 
COUPON: 


Ich bestelle ___ Ex. Mikro-Elektronik für Führungskräfte 
__ Ex. Software-Engineering in der Praxis 


Lieferanschrift (zugleich Rechnungsanschnift*) 


Name Vorname 
Firma 

Straße 

PLZ Or Unterschrift 


*Bestellungen aus dem Ausland werden nur gegen 
Vorauskasse erledigt 


CW (€ -Edition, Rheinstraße 28, 8000 München 40 


Spiele 


Programmname: 
Dogfight 2187 


Idee/Story: 

Grafik/ Animation: 
Sound/Sprache: 
Schwierigkeitsgrad: 
Spielspaß: 
Gesamteindruck: 


Spieltyp: Actionspiel 
Spielerzahl: 1-2 
Besonderheiten: keine 

Hersteller: Starlight Software 
Preis (Disk): 39,95 

Händler: Ariolasoft 
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, Die Feind-Schiffe 
haben viele 
verschiedene 
Formen. 


Barbarische 
Brutalität 


Die Kampfspiel-Welle reißt anschei- 
nend noch immer nicht ab. Mit Bar- 
barian haben wir den jüngsten Sohn 
dieses Genres vorliegen. Auf dem 
Cover sieht man einen schwert- 
schwingenden, muskelbepackten 
Barbar und das in England sehr be- 
kannte und gefragte Fotomodell Ma- 
ria Whittaker. Geschrieben wurde 
dieses Kampfspiel von dem Hexenkü- 
chen-Schöpfer Steve Brown. Eins vor- 
weg: Dieses Spiel ist meiner Meinung 
nach ein paar Klassen zu brutal! Das 
Spiel besteht aus zwei Teilen. Der 
erste Teil auf Seite A der gelieferten 
Kassette ist ein Trainingsspiel. Auf Sei- 
te B befindet sich der zweite Teil des 
Programmes. Er beinhaltet die eigent- 
liche Hintergrundgeschichte, auf die 
sich das Spiel stützt. Man muß verhin- 
dern, daß der von Grund auf böse 
Zauberer DRAX die Juwelen-Stadt 


Programmname: Barbarian 
) l 2 3 

Idee /Story: 

Grafik/ Animation: 

Sound/Sprache: 


Schwierigkeitsgrad: 


Spielspaß: 


Gesamteindruck: 


Spielerzahl: 1 
Besonderheiten: zu brutal 
Hersteller: Palace Software 
Preis: k.A. 


Vertrieb: Rushware 
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Das Fotomodell Maria Whittaker wirbt 


auf dem Cover für Barbarian. Hier ist 
sie mit Steve Brown (rechts) zu sehen 
der das Spiel programmiert hat. 


zerstört. Man hat zwei Möglichkeiten, 
dies zu tun. Die unehrenvolle ist, die 
schöne Prinzessin Mariana dem He- 
xer auszuliefern. Der Spieler hat na- 
türlich den ehrenvollen, aber schwie- 
rigeren Weg vor Augen. Er muß alle 
Wächter des Bösen vernichten und im 
Endkampf den Hexer selbst. Dies 
geht nicht ohne das obligatorische 
Blutfließen. Da fliegen die Köpfe, daß 
man sich nur ducken kann. Nachdem 
der Kopf geflogen ist, kommt ein ech- 
senartiges Wesen in die Arena und 
schießt den Kopf wie einen Fußball 
durch den Ausgang und schleppt den 
leblosen Körper des Gegners weg. 
Die Animation der Figuren ist gut ge- 
lungen. Man hat sechzehn verschie- 
dene Tritte und Schläge zur Verfü- 
gung. Musik und akustische Effekte 
liegen über dem Durchschnitt. 


Ob die Brutalität des Spielgeschehens 
zu einer Indizierung von Barbarian 
führt, bleibt abzuwarten, da die Ge- 
schichte in einer Fantasy-Welt spielt. 

(Dominik von Nostitz) Fr 


Massaker mit 


imponierender 
Grafik. 


o-thek7 


Weil immer noch Anfragen von RUN Lesern bei uns eingehen, die wissen wollen, ob und welche 
Disketten zu früheren RUN Heften zu bekommen sind, geben wir die Bestell Nr. und den Preis 
für alle, die es noch nicht wissen, bekannt. Alles klar? 


Liste der lieferbaren RUN-o-thek Disketten zu den Heften: 


Monat Bestell Nr.: Preis DM 
Januar 1985 501 24.80 
Februar 1985 502 24.80 
März 1985 503 24.80 
| April 1985 504 24.80 
| Mai 1985 505 24.80 
Juni 1985 506 24.80 
Juli 1985 507 24.80 
| August 1985 508 24.80 
September 1985 509 24.80 
Oktober 1985 510 24.80 
November 1985 571 24.80 
Dezember 1985 512 24.80 
Januar 1986 601 24.80 
Februar 1986. 602 24.80 
| März 1986 603 24.80 
April 1986 604 24.80 
| Mai 1986 605 24.80 
Juni 1986 606 24.80 
| Juli 1986 607 24.80 
August 1986 608 24.80 
| September 1986 609 24.80 
Oktober 1986 610 24.80 
| November 1986 611 24.80 
| Dezember 1986 612 24.80 


RUN Sonderheft | 1985 32.90 (zwei Disketten) Best.-Nr. 513 

RUN Sonderheft Il (Siegerprogramme) 32.90 (zwei Disketten) Best.-Nr. 613 

RUN Sonderheft Ill Apple’s 42.80 (zwei Disketten) Best.-Nr. A1 

RUN Sonderheft 1/87 (Tips + Tricks Programme 37.80 [zwei Disketten]) Best.-Nr. 713 

Im RUN-o-thek BASAR gibt es wieder einen ganzen Jahrgang RUN-o-thek Disketten in der 
Kassette verpackt. 


Disketten 1 bis 12 1985 Best.Nr.515 Preis 234.90 DM 
Disketten 1 bis 12 1986 Best.Nr.616 Preis 234.90 DM 
In allen Preisen sind Verpackung und Porto enthalten! Bei Nachnahmebestellungen zuzüglich Nachnahmegebühr. 


BESTELLSCHEIN 


Bestellschein bitte ausfüllen und ggf. mit unterschriebenem Verrechnungs- Name/Vorname 
scheck in einem ausreichend frankierten Umschlag schicken an: 


CW-Publikationen GmbH 
Vertrieb 


EEE 


Postfach 40 04 29 ALZIOn 
D-8000 München 40 


Ja, ich bestelle folgende Disketten direkt beim Verlag 


Disketten zu RUN Sonderheft Nr. 1/Bestellnr.: 513 
DM 29.80 (+ 3.— DM Porto). Endpreis DM 32.80. Zahlungsweise (Zutreffendes bitte ankreuzen) 


D 
[] Disketten zu RUN Sonderheft Nr. 2/Bestellnr.: 613 
29.90 (+ 3.— DM Porto). Endpreis DM 32.90. D’E 5 
U Disketten zu RUN Sonderheft Nr. 3/Bestellnr.: A1 ie tür gen een he wen 
DM 39.80 (+ 3.— DM Porto). Endpreis DM 42.80. $ 
DO) Disketten zu RUN Sonderheft Nr. 1/87 Bestellnr.: 713 
DM 34.80 (+3.— DM Porto). Endpreis DM 37.80. 
DO) Jahrgangssatz 1985: 12 Disketten in Schutzkassette U Versand per Nachnahme an obige Adresse. 
DM 231.30 (+ 3,60 DM Porto). Endpreis DM 234.90. 
DO] Jahrgangssatz 1986: 12 Disketten in Schutzkassette 
DM 231.30 (+ 3,60 DM Porto). Endpreis DM 234.90 Alle angegebenen Preise sind Inlandspreise. 


9% 


Spiele 


Noch mehr Spiele 


Die Programmflut wächst. Der Einzelne steht verloren im Ausguck. Deshalb 
ergänzen wir den Spieleteil. Die Highlights unter den Spielen werden, wie 
gewohnt, ausführlich besprochen. Doch kommen ab dieser Ausgabe Kurz- 
berichte hinzu. Sie bestehen aus einer Kurzbeschreibung, einem Foto und 
dem Bewertungskasten. 
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Überlebenskampf 
auf Krion 


In einer fernen Zukunft entdecken 
drei Bergbau-Ingenieure auf dem Pla- 
neten Krion den Kopf eines Kriegs-Ro- 
boters. Als einer der drei mit dem Fuß 
dagegenstößt, beginnt der Kopf zu 
sprechen. Er erzählt die furchtbare 
Geschichte der Vernichtung der Be- 
wohner von Krion. 

Dann spricht er von Rache und setzt 
eine gewaltige Kriegsmaschinerie in 
Bewegung. 

Aufgabe des Spielers: die Rettung der 
drei Ingenieure. 


Mit dem Motorrad 
auf dem Mond 


Die Sonne ist explodiert, die Erde ver- 
nichtet. Wenige Überlebende treiben 
mit dem Mond durchs All, in der Hoff- 
nung in ein anderes Sonnensystem zu 
gelangen. Nach 1200 Jahren ist es so- 
weit, ein neues Sonnensystem ist er- 
reicht. Die Anti-Gravitationsmaschi- 
nen werden angestellt, doch durch 
Sabotage funktionieren sie nicht. Red 
Max macht sich mit seinem Motorrad 
auf den Weg, sie zureparieren. Laser- 
schranken sind hier nur ein Hindernis. 


Spielhallen-Veteran 


Einer der ersten Spielhallen-Hits 
kehrt mit Zolyx auf die Bildschirme zu- 
rück. Auf einer rechteckigen Spielflä- 
che müssen vom Spieler Gebiete ab- 
geteilt werden, ohne daß herumflie- 
gende Bälle den Zeichenpunkt oder 
ein noch nicht geschlossenes Gebiet 
berühren. Mit jedem überstandenen 
Level kommt ein neuer Ball hinzu und 
läßt die Aufgabe noch schwieriger 
werden. Reaktion und Geschick sind 
bei Zolyx gleichermaßen gefordert. 


Programmname: Terra Cognita 


[4 


4 


Idee/Story: 
Grafik/ Animation: 
Sound/Sprache: 
Schwierigkeitsgrad: 
Spielspaß: 


Gesamteindruck: 


Spieltyp: Schießspiel 
Spielerzahl: 1 
Besonderheiten: keine 
Hersteller: Code Masters 
Preis (Kass.): k.A. 


Vertrieb: 


Idee/Story: 
Grafik/ Animation: 
Sound/Sprache: 


Schwierigkeitsgrad: 


Spielspaß: 


Gesamteindruck: 

Spieltyp: Action, Geschicklichkeitsspiel 
Spielerzahl: 1 

Besonderheiten: geteilter Bildschirm 
Hersteller: Code Masters 


Preis (Kass.): k.A. Vertrieb: k.A. 


Programmname: Zolyx 


Idee/Story: 
Grafik/ Animation: 
Sound/Sprache: 
Schwierigkeitsgrad: 
Spielspaß: 


Gesamteindruck: 


Spieltyp: Geschicklichkeitsspiel Hersteller: Firebird 
Spielerzahl: | Preis: k.A. 
Besonderheiten: keine Vertrieb: k.A. 
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Planet der 


Katzenmenschen 


Wir schreiben das 24. Jahrhundert. 
Das Leben auf der Erde wurde vor 
200 Jahren durch eine Sonnenexplo- 
sion vernichtet. Nur wenige haben die 
Katastrophe auf einer ‚intergalakti- 
schen Arche" überlebt und kehren 
jetzt zu ihrem Heimatplaneten zurück. 
Die Erde ist inzwischen von den „Cat 
Men" besetzt worden. Der Spieler soll 
einen kleinen Kampfroboter durch die 
feindlichen Linien schleusen, um den 
Kriegscomputer der „Cat Men" außer 
Gefecht zu setzen. Nur so kann die 
Erde wiedergewonnen werden. 


Kampf gegen die 
Menschheit 


Mobanti heißt der Heimatplanet eines 
Volkes, das keine Worte für Krieg und 
Zerstörung hat. Eines Tages werden 
sie von Wesen aus dem Weltraum an- 
gegriffen, die nach der Zerstörung ih- 
res eigenen Planeten, der Erde, ein 
neues Domizil suchen. Da Mobanti nur 
über wenig Erze verfügt, konstruieren 
die Wissenschaftler einen Verteidi- 
gungsapparat, halb Maschine, halb 
Tier. Mit ihr sollen die Überlebenden 
gerettet und die Anreifer zurückge- 
schlagen werden. Erst wenn alle An- 
greifer eines Lovels vernichtet wer- 
den, kann man Überlebende retten 


Auf der Suche nach 
der Schönheit 


Der Spieler ist als Foto-Journalist in ei- 
nem Hotel unterwegs. Seine Aufgabe: 
Ein Foto von einem bezaubernden 
Mädchen zu schießen, das sich in ir- 
gendeinem Zimmer aufhält. Zuerst 
müssen in anderen Räumen jedoch 
Kamera, Blitzlicht, Presse-Ausweis 
und der Schlüssel zu dem Zimmer des 
Mädchens gefunden werden. Das Ho- 
telpersonal versucht natürlich, jegli- 
che Belästigung der Gäste zu verhin- 
dern, und jagt dem Fotografen hinter- 
her. 

Stört man den Gast, wird man von ihm 
an das Personal ausgeliefert. 


WEINE CORE ON 


Programmname: Kat Trap 
Muschi 
Idee/Story: 


Grafik/Animation: 


Sound/Sprache: 


Schwierigkeitsgrad: 


Spielspaß: 
Gesamteindruck: 


Spieltyp: Hüpf- und Springspiel 
Spielerzahl: 1 

Besonderheiten: keine 

Hersteller: Domark 

Preis (Kass.): k.A. 

Vertrieb: kA. 


Programmname: Armourdillo 


Idee/Story: 


Grafik/Animation: 


Sound/Sprache: 


Schwierigkeitsgrad: 


Spielspaß: 


Gesamteindruck: 


Spieltyp: Schieß- und 
Geschicklichkeitsspiel 

Spielerzahl: 1 

Besonderheiten: keine 

Hersteller: Code Masters 

Preis (Kass.): k.A. 


Vertrieb: 


k.A. 


Programmname: Mr. Angry 


Idee/Story 


Grafik/ Animation. 


Sound/Sprache 


Schwierigkeitsgrad 


Spielspaß: 


Gesamteindruck 


Spieltyp: 


F 
Spielerzahl: oder 2 
Besonderheiten: keıne 
Hersteller: Code Masters 
Preis (Kass.): kA 


Vertrieb: 


THE SPACEPORT 


High-Score: so 
renades: Mone 
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Speichermedien: 
Heute und morgen 


Den Computer-Wissenschaftlern rei- 
chen die Möglichkeiten von her- 


” kömmlichen Speichermedien nicht 

Die ur mehr aus. Jetzt heißt es: CMOS-Chips 

ni ade, willkommen Bio-Chips. Wir infor- 

erscheint am mieren über den aktuellen Stand der 
19. August Technik. 


Bauanleitung des 
Jahres: 512 K für C64 


Jetzt wird der C64 zur Supermaschine 
hochgepowert. Die Leistungsmerkma- 
le unserer Hardware-Erweiterung 
sprechen für sich: 512 KByte RAM, 32 
KByte Extra-ROM, vier Zeichensätze, 
vier Betriebssysteme, eingebauter 
Maschinensprachemonitor und vieles 
mehr. Multitaskingprogrammierung, 
Software-Druckerpuffer und RAM- 
Doppelfloppy sind dann auf dem C64 
machbar. Ein Muß für alle Program- 
mierer und Anwender. 


Dateiverwaltung 
mit Sound und 
Grafik 


Aus der Schweiz kommt mit dem Da- 
teiprogramm „Go Amiga Datei" ein 
perfektes Werkzeug für die Verwal- 
tung von Daten, Grafiken und Musik. 
Die virtuelle Speicherverwaltung und 
die daraus resultierende hohe Kapazi- 
tätsausnutzung ist nur einer der Plus- 
punkte, die das Programm für sich 
verbuchen kann. Was es leistet, lesen 
Sie in unserem Bericht. 


StarTexter C64, v5.0 


Updates zu Software sind nichts Be- 
sonderes. Anders ist es, wenn ein Pro- 
gramm völlig neu überarbeitet wird 
(inklusive Handbuch). In der Version 
5.0 von StarTexter C64 lassen sich jetzt 
StarPainter-Bilder einbinden und auf 
Nadeldruckern zu Papier bringen. 
Weitere Neuheiten: Erweiterte Druk- 
kerinstallation, mitlaufende Echtzeit- 
uhr, Floskel-Tasten, erweiterte Block- 
operationen etc. In der nächsten Aus- 
gabe nehmen wir die neue Version 
gründlich unter die Lupe. 
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Was leisten die neuen Amigas? Hier 
finden Sie die Antwort. Unabhängig 
davon, ob Sie den Amiga schon 
haben oder den Kauf planen: Dieses 
Buch bietet Ihnen Entscheidungshilfen, 
technische Details und jede Menge 
von dem, was man mit Amiga 

500 & 2000 so alles anstellen kann. 
Eben Informationen, die man braucht, 
wenn man sich für die neven Amigas 
interessiert. Aufbereitet nach einem 
völlig neuartigen didaktischen Kon- 
zept, in einer Sprache, die zum 
Amiga paßt. 

Das können Amiga 500 & 2000 
190 Seiten, DM 29,- 


Wer die enorme Grafikfähigkeit sei- 
nes Amiga ausschöpfen will, braucht 
entsprechendes Know-how: Grafik- 
programmierung mit den vorhande- 
nen BASIC-Befehlen, Nutzung der 
Libraries, die Register der Grafik- 
Chips, CAD, Aufbau und Program- 
mierung von Screens, Windows, 
HAM, Halfbrite und Interlace aus 
BASIC und C. Informationen, die im 
Supergrafikbuch zum Amiga mit vie- 
len Programmbeispielen anschaulich 
vermittelt werden. 

Amiga Supergrafik 
Hardcover 

ca. 700 Seiten, DM 59,- 
erscheint ca. 7/87 


Wählen Sie gleich den richtigen Ein- 
stieg zu Ihrem Amiga 500. Denn das 
Handbuch läßt Sie dabei völlig allein. 
Versuchen Sie es lieber gleich mit 
Amiga 500 für Einsteiger. Hier heißt 
es: Anschließen und loslegen. Ver- 
ständlich für jedermann zeigt Ihnen 
dieses Buch: Workbench, Amiga 
Basic, CLi und AmigaDOS. Locker 
aufbereitet bietet es Ihnen alles Wis- 
senswerte. Bis hin zu den beim 
Amiga 500 mitgelieferten Zusatzpro- 
grammen. 

Amiga 500 für Einsteiger 

343 Seiten, DM 39,- 
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Das erfolgreiche Buch zu Amiga- 
BASIC - jetzt in der Neuauflagel 
Erweitert um Kickstart 1.2, neuer 
Workbench und Amiga 500 & 2000. 
Mit allem, was BASIC-Programmie- 
rern Spaf3 macht: Grafik und Sound, 
Laden und Speichern von Graficraft- 


Bildern in BASIC-Programme, sequen- 


tielle und relative Dateien, Business- 
Grafik, Computeranimation, Win- 


dows, Umgang mit IFF-Bildern, Sprach- 


ausgabe und, und, und. Das Buch für 
Einsteiger, Aufsteiger und Profis. 
AmigaBASIC 

Hardcover 

774 Seiten, DM 59,- 
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C an einem Wochenende? Durchaus 
möglich! Mit C für Einsteiger. Ein Ein- 
führungskurs, der Ihnen schnell und 
einfach die wichtigsten Grundlagen 
dieser Sprache vermittelt. Vom ersten 
Programm bis hin zu den Routinen in 
den Bibliotheken. Mit dem gesamten 
Sprachumfang und den besonderen 
Features von C. Zahlreiche 
Tips & Tricks zur Programmierung und 


eine Beschreibung der beiden Compi- 


ler Lattice C und Aztek runden das 
Ganze ob. 

Amiga C für Einsteiger 
Hardcover, 254 Seiten 

DM 39,- 
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Schreiben Sie Ihre Programme in 
Maschinensprache - und Sie werden 
sehen, wie schnell ein Amiga sein 
kann. Das nötige Know-how liefert 
Ihnen dieses Buch: Grundlagen des 
68000, das Amiga-Betriebssystem, 
Druckeransteuerung, Diskettenopero- 
tionen, Sprachausgabe, Windows, 
Screens, Register, Pull-Down-Menüs 
... Und damit Sie auch gleich prak- 
tisch arbeiten können, werden die 
wichtigsten Assembler vorgestellt. 
Amiga Maschinensprache 
Hardcover, 282 Seiten 
DM 49,- 
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Amiga Tips & Tricks. Ein Buch, das 
voller Überraschungen steckt: 64 Far- 
ben gleichzeitig auf dem Amiga. Von 
BASIC aus Zugriff auf die Libraries. 
Benutzung verschiedener Zeichen- 
sätze in BASIC. Sinnvoller Einsatz 
von Windows, Screens und Menüs. 
Tips zu einzelnen Grafikbefehlen, 
Programm- und Amiga-DOS-Routi- 
nen! Greifen Sie in die Trickkiste, und 
schon sind Dinge möglich, die man 
gar nicht gedacht hätte. 

Amiga Tips & Tricks 

Hardcover 

364 Seiten, DM 49,- 
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tte dieser Marke enthält: Marlboro 0,9 mg Nikotin und 13 mg Kondensat (Teer). Mu 


